package Validate; # use package to declare a module

our $val;

sub val_time {
    $val = shift;
    $val = ($val =~ /^(\d{2}):(\d{2}) (am|pm)$/) ? "$1:$2 $3" : 1;
    return $val;   #worked with and without this line
}

1;