#!/usr/bin/perl

print "Content-type: text/plain\n\n";

use strict;
use CGI::Carp qw(fatalsToBrowser);
use Validate;

my $the_time = "12:23 pm";

Validate::val_time($the_time);

$the_time = $Validate::val;  

if ($the_time) { print "$the_time\n" } else { print "error\n" }