Select Code to Download

($sql{'name'}, $error) = $self->val_text( 1, 64, $self->query->param('
+name') );
   if ( $error-> { msg } ) { push @error_list, { "name" => $error->{ m
+sg } }; }

sub val_alphanum {
   my $self = shift;
...
      return ($tf->filter($1));
   }
}