Select Code to Download

$xcltime=convert_time($xcltime);
$xcltime2=convert_time($xcltime2);

sub convert_time{
  my ($time)=shift;
...
  }
  return "$h:$m:$s$suffix";
}