my $dbh = DBI->connect("dbi:mysql:db", "user", "pass",
              { AutoCommit => 1, RaiseError => 1})
                or die &error_out;
my $qry = $dbh->prepare("SELECT location FROM people")
                or die &error_out;  
$qry->execute or die &error_out;