Select Code to Download

#!/usr/bin/env perl

...
print "Date: $date tzoffset=", $date->tzoffset, "\n";
print "Today: $today tzoffset=", $today->tzoffset, "\n";
print "Diff: ", ($date - $today), "\n";

Date: Mon Apr 20 00:00:00 2015 tzoffset=-25200
Today: Mon Apr 20 00:00:00 2015 tzoffset=-25200
Diff: 0

$ cpanm Time::Piece
Time::Piece is up to date. (1.29)
...
        $t->tzoffset            # timezone offset in a Time::Seconds o
+bject
$ perldoc -t Time::Piece::Plus | grep -i zone
$