my $uname = q{leander@whatever.com};
my $res = $dbh->selectall_arrayref(
    q{SELECT uname, pwd FROM login WHERE uname=?},{},$uname
};