Select Code to Download

my $a="20070101005959";
my $z="20070101010101";
my $t1=substr($a,-4,2)*60+substr($a,-2);
my $t2=substr($z,-4,2)*60+substr($z,-2);
print (($t2+3600-$t1)%3600);