use autodie; try a demo

$ perl -e " use autodie; open my($fh), qw[< noexist ]; "
Can't open 'noexist' for reading: 'No such file or directory' at -e li
+ne 1
[download]

the reason it can't open comes from $!