#!perl

use strict;
use warnings;
use feature qw( say );

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

my $first_timestamp  = 'Fri, 27 Jul 2007 14:34:55 GMT';
my $second_timestamp = 'Wed, 27 Jul 2011 07:03:02 +1000';

say $first_timestamp;
say $second_timestamp;

my $first_dt
    = DateTime::Format::DateParse->parse_datetime($first_timestamp);
my $second_dt
    = DateTime::Format::DateParse->parse_datetime($second_timestamp);

$first_dt->set_time_zone('UTC');
$second_dt->set_time_zone('UTC');

my $strp = DateTime::Format::Strptime->new(pattern => '%F %T %z');

say $strp->format_datetime($first_dt);
say $strp->format_datetime($second_dt);

say $first_dt->delta_days($second_dt)->delta_days(),
    ' days difference';

exit 0;