# accepts the following forms:
#   HH:MM:SS.ss MM:SS.ss SS.ss HH:MM:SS MM:SS SS
sub time2sec {
  my ($s,$m,$h) = reverse(0, 0, split /:/, shift)
  return 3600*$h + 60*$m + $s;
}