Help for this page

Select Code to Download

Select or download this

# Regular CGI
my $quantity = $q->param('quantity');            # Tainted

# "Fancy" CGI of your own construction
my $quantity = $q->SafeNumberParam('quantity');  # De-tainted

Select or download this

sub SafeNumberParam
{
    my ($self)  = shift;
...

    return $number;
}