#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Date::Calc qw/Mktime/;

my $t1 = Mktime(2012,9,2, 19,58,0);
my $t2 = Mktime(2012,9,1, 20,0,0);
my $diff = $t1-$t2;
print $diff . "\n";