my log_msg_1 {
    my $FH = shift;
    my $msg = shift;
    print $FH $msg;
}

my log_msg_2 {
    my ($FH, $msg) = @_;
    print $FH $msg;
}