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

##</code><code>##

sub convert_time{
  my ($time)=shift;
  my ($h, $m, $s) = $time =~ /^(\d\d?):(\d\d?):(\d\d?)$/;
  my ($suffix);
  if ($h > 12){
    $h-=12;
    $suffix="&nbsp;PM";
  } elsif ($h == 0) {
    $h = 12;
    $suffix="&nbsp;AM";
  } else {
    $suffix="&nbsp;AM";
  }
  return "$h:$m:$s$suffix";
}