script file.log
perl -w sample1.pl 2>&1
echo $?
exit
col -b file.log > stdout.txt