Select Code to Download

a-zA-Z0-9_ == \w

my %sysuser = map { $_ => 1 } qw(administrator accounts support postma
+ster webmaster spam-admin  technical billing sales purchase buy misus
+e assistance mail virus-admin manager usenet hostmaster);

if (defined $sysuser{$username}) {

$w->p('Please Accept The Terms And Conditions.');

print $w->header.
       $message;

my @errors=();
...
push @errors, 'Password Must Be Between 6-30 Chars With No Symbols.';

if (@errors) {
    print $w->header.
...

# you only need one cgi object
$w->redirect();