c:\test>perl -e"$t=time; sleep 5; sleep 5; print time - $t"
10