my $user = User->search(name => 'gav');
    if ($user && ($user = $user->next) && $user->password eq 'monk') {
        print "Welcome gav^!\n";
    } else {
        print "Schoo!\n";
    }