my $dbh = DBI->connect($data_source, $username, $auth, \%attr); my $sth = $dbh->prepare("SELECT foo FROM bar WHERE baz = '$qux'"); $sth->execute();