time perl sh.pl > sh.txt

real	0m3.770s
user	0m3.692s
sys	0m0.074s