open infile, "< datafile";
my $str = join "", <infile>;
close infile;
gnuplot (..., $str);