Select Code to Download

my $sth = $dbh->prepare(q{SELECT user_id from user where 
    user_id = ?});
...
if( $sth->rows ) { 
    # do something here
}

my ( $usr ) = $sth->fetchrow_array;