Select Code to Download

confess("Parameter $n stinks") unless $param[$n] =~ /$goodRule[$n]/;

sub buyWidgets
{
...
    # Do stuff with the good parameters
    return $supplier->buyWidgets($numWidgets);
}