perl -e "my $x = clock(); sub clock { return localtime(); } print $x;"
Tue Jan 13 05:47:55 2009