#!/usr/bin/perl $fl=0; print "set terminal png small notransparent color\n"; print "set size 1.6,1.6\n"; print "plot [0:9000000] "; foreach $i (@ARGV[1..($#ARGV)-1]) { if($fl) { print ","; } else { $fl=1; } print "\"$i\" using " . $ARGV[0] . " with linespoints"; } print "\n";