perlでデータベース

データベースに接続するのはPHPが簡単だともてはやされているようだが
perlでも十分実用可能だと思うのだが、いかんせんPHPの勢いがありすぎて
perlのサンプルスクリプトが少ない。

use DBI;
$db = DBI->connect("DBI:mysql:データベース",ユーザ名,パスワード);
$sth = $db->prepare("select * from テーブル名);
while($res = $sth->fetchrow) {
	print $res;
}
$sth->finish;
$db->disconnect;

こんな感じ？動作確認なし。
エラー処理とか最適な処理方法は各自勉強。そして俺に教えてくれ。