Select Code to Download

use Modern::Perl;

use DateTime;
...
my $second_dt_utc = $second_dt->set_time_zone('UTC');

say $first_dt_utc->delta_days( $second_dt_utc )->delta_days, ' days of
+ difference';

use Modern::Perl;

...
use DateTime::Format::Flexible;

say DateTime::Format::Flexible->parse_datetime( 'Fri, 26 Aug 2011 14:3
+4:55 GMT')->set_time_zone('UTC')->delta_days(DateTime::Format::Flexib
+le->parse_datetime( 'Sat, 27 Aug 2011 07:03:02 +1000')->set_time_zone
+('UTC'))->delta_days, ' days of difference';