print MAIL "To: $form{'usermail'}\n";

##</code><code>##

victim1@domain.com, victim2@domain.com, victim3@domain.com, etc...

##</code><code>##

#!/usr/bin/perl -wT

##</code><code>##

my $username;
If ($form{username} =~ /^([\w.-]+)$/) {
  $username = $1;
}
else {
 die("invalid username");
}