Select Code to Download

sub CheckDate {
        my $date = shift @_;
...
        print "Date: $date\n";
        return true;
}

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