my $logfile = 'file.txt';
open my $log_fh, '>>', $logfile
    or die "Couldn't open '$logfile': $!";

sub print_sub {
    my ($log) = @_;
    print {$log} "Starting work\n";
};

...
print_sub($log_fh);