Select Code to Download

package Whatever;

...
setLogLevel( STDOUT => 1 );
open LOG, '>>', 'some.log' or die;
setLogLevel( LOG => 2 );

    my( $arg )= @_;
    my $fh;
...
        # You'll also need 'no strict;' here.
        ...
    }