sub doSomething {
    my $self = shift;
    my $q = $self->query();

    return "Invalid Login!" if ($q->param('login') =~ /^[\w\/\-]{0,32}$/);

    #main guts of routine here...
    
    return $outputOfRoutine;
}