Select Code to Download

#!perl.exe
my $filename="e:\test.out.txt";
...
  print("cant read file ",$filename,"\n");
}
}