##

#!/usr/bin/perl -w
use strict;
use CGI;
my $q = CGI->new;

# read in form data
my $_somename = $q->param( 'somename' ); # hidden
my $_name = $q->param( 'name' ); # text
my @_group1 = $q->param( 'group1' ); # checkbox
my $_pass = $q->param( 'pass' ); # password

# untaint the data
my ( $somename ) = ( $_somename =~ /^(asdf)$/ );
my ( $name ) = ( $_name =~ /^(Ovid)$/ );
my @group1;
( $group1[$_] ) = ( $_group1[$_] =~ /^(1|2)$/ ) foreach ( 0 .. $#_group1 );
my ( $pass ) = ( $_pass =~ /^(\w+)$/ );