use strict; use warnings; # and so on... open my $FH, "<", $filename or croak "and so on...\n";