use warnings;
use strict;
use autodie; # this is the "magic to handle failure" of open

... {
    open my $fh, '<', 'welcome.txt';
    ...
} # auto closes file handle when $fh goes out of context
...