Select Code to Download

package Validate;
use Exporter::Dispatch;

my $validate = create_dptable Validate;
my %params; # store params in a hash.  Use symrefs to obtain original 
+behaivor.
...
                ? $validate->{"val_$_"}->(param($_)) 
                : $validate->{'error_page'}->($_)
}