Perl で初めてのデータベース接続(DBI)

#!/usr/bin/perl
# 下２行はおまじない
use strict;
use warnings;

# データベースへ接続するためのモジュールを読み込む
use DBI;

# データソースの登録
my $db_source = 'DBI:mysql:mydatabase';
# ユーザー名
my $user      = 'myname';
# パスワード
my $pass      = 'mypassword';

# SQL ステートメント
my $statement = 'SELECT `id` FROM `mytable` LIMIT 0 , 30;';

# データベースへの接続
# 失敗したら、エラーを表示して実行を終了させる
my $dbh = DBI->connect($db_source, $user, $pass) || die $DBI::errstr;

# SQL ステートメントをコンパイルする
# 失敗したら、エラーを表示して実行を終了させる
my $sth = $dbh->prepare($statement) || die $dbh->errstr;

# コンパイルした SQL ステートメントを実行する
# 失敗したら、エラーを表示して実行を終了させる
my $result_set = $sth->execute || die $sth->errstr;

# SQL ステートメントの実行に成功をしたら
# 実行結果を取得する
if ($result_set) {
    # 結果件数を取得する
    my $rows = $sth->rows;
    # 結果件数を表示する
    print "$rows records found.\n";
    # 結果件数分の処理を行う
    for (my $i = 0; $i < $rows; $i++) {
        # 実行結果を１件ずつ取得する
        my @result = $sth->fetchrow_array;
        # 実行結果の値を表示する
        print "$result[0]\n";
    }
}
# ステートメントハンドルのオブジェクトを閉じる
$sth->finish;
# データベースハンドルのオブジェクトを閉じる
$dbh->disconnect;