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' );