my $tdiff = ($hour1 - $hour2) * 60 + ($min1 - $min2);
  my $diff_hour = int(tdiff / 60);
  my $diff_min = $tdiff % 60;