Kazuho@Cybozu Labs

use DBI;
use Filter::SQL;

# データベースハンドルを指定
Filter::SQL->dbh(DBI->connect('dbi:mysql:test'))
    or die DBI->errstr;

# テーブルを作ったり消したり
EXEC DROP TABLE IF EXISTS t;;
EXEC CREATE TABLE t (v INT);;

# 値を挿入
for (my $v = 0; $v < 5; $v++) {
  INSERT INTO t (v) VALUES ($v);;
}

# イテレートして値を表示
foreach my $row (SELECT * FROM t;) {
  print "$row[0]\n";
}

# 条件分岐
if (SELECT ROW COUNT(*) FROM t; == 5) {
  print "5 rows in table\n";
}

　Filter::SQL は cpan にアップ済みです。今すぐソースを見たい方は /lang/perl/Filter-SQL - CodeRepos::Share - Trac からどうぞ。

10:52 追記: 素の SQL を埋め込むのではなく、Perl の文法内で SQL っぽく書くためのモジュールとしては、kan さんの SQL::Declare (説明) や DBIx::Perlish があると宮川さん他に教えていただきました。あわせてごらんください。