Select Code to Download

App::User->set_sql('getusers', 'select * from __TABLE__ where username
+ = ?');

my $sth = App::User->sql_getusers();
$sth->execute('fred');
my $hash = $sth->fetchall_hash();