my sub log_msg ($FH, $msg, @args) {
    print $FH $msg, @args;
}