eval {
    open FH, '<my_file' or die $!;
};
print $@ if $@;