use strict; use warnings; use 5.010;
use IO::Handle;
use File::Temp "tempfile";
my($T,$N) = tempfile("plot-XXXXXXXX", "UNLINK", 1);
for my $t (100..500)
        { say $T $t*sin($t*0.1), " ", $t*cos($t*0.1); }
open my $P, "|-", "gnuplot" or die;
printflush $P qq[
        unset key
        set xtics rotate by -45
        #set grid # vertical and horizontal grid lines
        set grid xtics # vertical grid lines only
        plot "$N" with lines lw 3
];
<STDIN>;
close $P;
__END__