If you want to use GT::Date, something like this should work:use GT::Date;
my $hour = $IN->param('hour');
my $min = $IN->param('min');
my $ampm = $IN->param('ampm');
my $time = "$hour:$min:$ampm";
my $newtime = GT::Date::date_transform($time,"%hh%:%MM%:%tt%","%HH%:%MM%:%ss%");
my $hour = $IN->param('hour');
my $min = $IN->param('min');
my $ampm = $IN->param('ampm');
my $time = "$hour:$min:$ampm";
my $newtime = GT::Date::date_transform($time,"%hh%:%MM%:%tt%","%HH%:%MM%:%ss%");