Select Code to Download

HTML Form
<form>
...
if ($q->param('jsenabled') eq "Yes") {
  #perform validation
}

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';