Select Code to Download

#!/usr/bin/env perl -l

...

print 'Whole seconds diff: ', $diff;
print 'Fractional seconds diff: ', $diff - $ms;

Whole seconds diff: 46979
Fractional seconds diff: 46978.137

$ date -u
Tue 29 Oct 2013 08:02:51 UTC

$ perl -E 'say(5*60*60 + 8 + 8*60*60 + 2*60 + 51)'
46979