#!/usr/bin/perl
use strict;

my $myfile = "/var/tmp/test.log";

open MYHAPPYFILE, ">$myfile" or 
	die "Error opening $myfile";

while (my $log_file = <STDIN>) {
    printf MYHAPPYFILE "%s", $log_line;
}

exit 0;