Select Code to Download

sub safe_open {
    my $fn = shift;
    # you need not initialize $fh anymore in Perl >= 5.6
...

    return $fh;
}