#!perl

use strict;
use warnings;

use DateTime;
use DateTime::Format::DateParse;

@ARGV == 2 or die "Usage: perl $0 <timestamp 1> <timestamp 2>\n";

my $ts1 = shift;
my $ts2 = shift;
my $tz  = 'Australia/Sydney';

my $dt1 = DateTime::Format::DateParse->parse_datetime($ts1)
                                     ->set_time_zone($tz);
my $dt2 = DateTime::Format::DateParse->parse_datetime($ts2)
                                     ->set_time_zone($tz);

my $diff = $dt1->delta_days($dt2)->delta_days();

print "$dt1 delta $dt2 is $diff days\n";

exit 0;