#!/usr/bin/env perl

use strict;
use warnings;
use Time::Piece::Plus;

my $today = Time::Piece::Plus->today;
my $date = Time::Piece::Plus->strptime("2015-04-20", '%Y-%m-%d');

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

##</code><code>##

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