1234567
use Modern::Perl;use DateTime;my $past = DateTime->new(year => 2012, month => 9, day => 3, hour => 19, minute => 39, time_zone => 'Europe/Berlin');my $jetzt = DateTime->now();my $delta = $jetzt->subtract_datetime_absolute($past);say $delta->in_units( 'seconds' );