Select Code to Download

use English '-no_match_vars';
open $input_fh, '<', $input_fn or die 'Could not open file: ', $OS_ERR
+OR;
...
    $hash->{$word1} = $word2;   
}
close $input_fh or die 'Could not close file: $OS_ERROR';

my $output = *STDOUT;

## This in a package else where
...

## From main code
Your::Package->assign_log_handle( *STDERR );