Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...
print "Date: $date tzoffset=", $date->tzoffset, "\n";
print "Today: $today tzoffset=", $today->tzoffset, "\n";
print "Diff: ", ($date - $today), "\n";
  2. or download this
    Date: Mon Apr 20 00:00:00 2015 tzoffset=0
Today: Mon Apr 20 00:00:00 2015 tzoffset=-25200
Diff: -25200