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

}
close MYDATA;