open (my $out,'>>',/temp/MyLog.log) or die 'cant open'; 
while (<STDIN>) { print ;}