open(FILE,"$_") or die " Could not open file :$! " ;

##</code><code>##

open my $file, '<', $_ or die "Could not open `$_': $!\n";