time perl sh.pl > sh.txt

real	0m4.192s
user	0m4.170s
sys	0m0.015s