sub time2mins {
  my $time = shift;
  my $mins = '';
  $mins = $1 * 60 + $2
    if $time =~ /(\d\d):(\d\d)/;
  return $mins;
}