Select Code to Download

my @required = qw(name site siteid email email2 pass repass);

...
else {
  # do whatever...
}

$q->param('siteid') =~ /^\s*(\d+)\s*$/
my $site_id = $1
...
else {
  &error("Invalid Site ID");
}

my @required = qw(name site siteid email email2 pass repass);

...
  or  &error("Directory already exists");

# directory doesn't exist, so do whatever...