sidburn@sid:~$ perl -wle 'sleep 5; print( (times)[0] + (times)[1] )'
0
sidburn@sid:~$ perl -wle 'sleep 5; print (time() - $^T);'
5