As a side note, this code won't do anything useful, as you use the $name et al variables later unmodified:

    # scrub all the form data passed to this script...
    $scrubber->scrub( $_ ) for @form_data;
[download]