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

##</code><code>##

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