my $sth = $dbh->prepare("select * from mytable where user_name = ? ") or
                                                or &die("Can't select: ",$DBI::errstr); 
   $sth->execute($user) die "Execute failed: ", $DBI::errstr;