Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
my ( $field2 ) = ( $tainted_field2 =~ /^([\w\s]+)$/ );

# do as you will...

#!/usr/bin/perl -w
use strict;
...

my $field1 = param( 'field1' );
my $field2 = param( 'field2' );