open( my $fh, '>>', '/var/tmp/test.log' ) or die "Cannot open file: $!\n";
select $fh;
print while <STDIN>;