Call GNU Plot from Perl

#!/usr/bin/perl
open my $GP, '|-', "gnuplot -persist -";
print {$GP} <<'__GNUPLOT__';
plot "matrixout.txt" using 1:3 w lines t'before';
__GNUPLOT__
close $GP;