my $in = "somefile.txt";
open my $FH, "<", $in or print "cannot open file $in\n" and exit 3;