open( FILE, $filename ) 
  or die "Can't open $filename for reading: $!\n";
...