Select Code to Download

open(FILE,"<",$filename1) or die "\n...Cannot find the file: $filename
+";

... or die "\n... Can't open $filename: $!\n";