open GP, '|c:/Test/Gnuplot_Perl/gp424win32/gnuplot/bin/pgnuplot.exe';
open (hier,">output.png");
use FileHandle;
GP->autoflush(1);
print GP 'load "Packetloss.txt"', "\n";
print hier GP;
sleep 3;
close hier;
close GP;

my $gplot_file='Packetloss.txt';
my $gplot_cmd='c:/Test/Gnuplot_Perl/gp424win32/gnuplot/bin/pgnuplot.exe';
my $out_file='output.png';

open(my $ch, "$gplot_cmd $gplot_file |") or die "Fehler bei '$gplot_cmd $gplot_file |' ($!)\n";
open(my $fh, '>', $out_file) or die "Fehler beim oeffnen von '$out_file' ($!)\n";
while(my $data=<$ch>)
{
  print $fh $data;
}
close($fh);
close($ch);

use FileHandle;

my $gplot_file='Packetloss.txt';
my $gplot_cmd='c:/Test/Gnuplot_Perl/gp424win32/gnuplot/bin/pgnuplot.exe';
my $out_file='output.png';

my $gplotfh = new FileHandle;
$gplotfh->open ("$gplot_cmd $gplot_file |") or die "Fehler bei '$gplot_cmd $gplot_file |' ($!)\n";

my $gimage = new FileHandle;
$gimage->open ("> $out_file") or die "Fehler beim oeffnen von '$out_file' ($!)\n";

while(my $data=<$gplotfh>)
{
  $gimage->print($data);
}

undef($gplotfh);
undef($gimage);

my $gplot_file='Packetloss.txt';
my $gplot_cmd='c:/Test/Gnuplot_Perl/gp424win32/gnuplot/bin/pgnuplot.exe';
my $out_file='output.png';

system("$gplot_cmd $gplot_file > $out_file") == 0 or die "konnte '$gplot_cmd $gplot_file > $out_file' nicht ausführen ($?)\n";

set terminal png
set output "| cat -"

 my $gplot_file='Packetloss.txt';

open(MYDATA, "Packetloss.txt") die ("Error: cannot open file 'data.txt'\n");
my $line;
while( $line = <MYDATA> ){              
  print " $line\n";

}
close MYDATA;

print $gplot_file; 

set terminal png
set output "| cat -"