Trap 1 - an obvious one 

open my $fh, '<', $filename || die "open($filename): $!";