my $r= $t2-$t1;
$r+= 3600 if $r<0;