Select Code to Download

use warnings;
use strict;
...
    $log->log('default log message');
    $log->log('alternate log file msg', 'not-default.log');
}

$ cat default.log
default log message

$ cat non-default.log
alternate log file msg

    sub log {
        my ($self, $msg, $log) = @_;
...
            # use the default fh
            $log_fh = $self->{default_log};
        }

open my $fh, '>>', 'alternate.log' or die $!;

$log->log('msg', $fh);