Perl データベースへのアクセスのサンプル

最近ではDBIx::Class や Class::DBIでデータベースをアクセスすることが多く。直接ＳＱＬを書くこともすくなくなりましたが、基本のサンプルを書いておきます。
そのままでは動きません。

my $dbh=DBI->connect(DBI,{PrintError=>0,AutoCommit=>1}) or die ;

my $sql=qq[SELECT id ,name FROM user WHERE age=? AND area=?];#プレースホルダを使用
@bind=(17,14);
$sth = $dbh->prepare($sql)|| die $dbh->errstr;
$sth->execute(@bind);
if ($sth->errstr ne ""){ # DBエラー
#エラー処理
}
while( ( $login_id, $login_name ) = $sth->fetchrow_array() ) {
}
$sth->finish;
$dbh->disconnect;