$ perl -E " say scalar localtime;  sleep 2; say scalar localtime; "
Thu Feb 21 16:52:56 2013
Thu Feb 21 16:52:58 2013