C:\Perl\bin>perl.exe -le "print(time - ( stat(q[perl.exe]) )[10])"