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

##</code><code>##

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