#!perl

use strict;
use warnings;

use DateTime;
use DateTime::Format::Natural;

my $parser = DateTime::Format::Natural->new();

my $first_timestamp  = 'Mon, 27 Aug 2007 14:34:55 GMT';
my $second_timestamp = 'Sat, 27 Aug 2011 07:03:02 +1000';

$first_timestamp  = $parser->extract_datetime($first_timestamp);
$second_timestamp = $parser->extract_datetime($second_timestamp);

my $first_dt  = $parser->parse_datetime($first_timestamp);
my $second_dt = $parser->parse_datetime($second_timestamp);

print $first_dt->delta_days($second_dt)->days(), " days difference\n";

exit 0;