Select Code to Download

#!/usr/bin/env perl -l

...

print "Expected Epoch:   $expected_epoch";
print 'Calculated Epoch: ', timegm($sec, $min, $hour, $mday, $mon, $ye
+ar);

Expected Epoch:   3661
Calculated Epoch: 3661