my $t1 = time();
my $t2 = Mktime(2012,9,1, 20,0,0);
my $diff = $t1-$t2;