sub CheckDate {
        my $date = shift @_;

        print "Date: $date\n";
        return true;
}

##</code><code>##

-require=>{
                                        "Must be in the format (two digits per value) of MM/DD/YY: "
                                        #=> \&CheckDate($_)
                                        => sub {return (ParseDate($_)) ? true : false }
                                        #=> sub {return true }
                                        }