open my $FH, "<", $in or (print "cannot open file $in\n" and exit 3);