#!/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";