Select Code to Download

sub parse_form {
$query=$ENV{'QUERY_STRING'};

...


}

foreach $userss (@users) {
print <<EOF;
$userss<br>
EOF
}