Select Code to Download

<form action='somescript.pl' method=post enctype='multipart/form-data'
+>
    <input type='hidden' name=somename value="asdf">
...
    <br>
    <input type="password" name="pass"> Password
</form>

#!/usr/bin/perl -w
use strict;
...
my @group1;
( $group1[$_] ) = ( $_group1[$_] =~ /^(1|2)$/ ) foreach ( 0 .. $#_grou
+p1 );
my ( $pass ) = ( $_pass =~ /^(\w+)$/ );