error_out() unless defined( my $name = param('name') ); 
($name) = $name =~ /^([[:alpha:]]*)$/;