my $username = trim(param('username'));

sub trim {
   my $dirty = shift;
   $dirty =~ s/^\s*//g;   # remove leading whitespace
   $dirty =~ s/\s*$//g;   # remove trailing whitespace
   return $dirty || '';   # return empty string if $dirty is undef
}