perl -w sample1.pl 2>&1 | tee stdout.txt