Select Code to Download

my @required = qw(name site siteid email email2 pass repass);
my ($site_id) = $q->param('siteid');
...
}
else {
}

$q->param('siteid') =~ /^\s*(\d+)\s*$/;

my ($site_id) = $q->param('siteid');