open my $fh, '>>', $filename or die "Can't open $filename for append: $!";
    my @lines = <STDIN>;
    print $fh @lines;
    close $fh;
    ${ $log_msg } = join("", @lines);
    return;