does the "or die $!"-part in the "close $fh or die $!;"-line any good?
#!/usr/bin/env perl use warnings; use strict; my $file = 'my_file'; open my $fh, '<', $file or die $!; print <$fh>; close $fh or die $!;