my ($username) = My::DBI::Users->search( username => 'foo' );
# Could also do:
my $username = (My::DBI::Users->search( username => 'foo' ))[0];
# Or maybe (haven't tried this one)
my $username = My::DBI::Users->search( username => 'foo' ) 
    ->next();