#!/opt/local/bin/perl

use FindBin;
use lib ("$FindBin::RealBin/perl5/lib/perl5", "$FindBin::RealBin/perl5/lib/perl5/darwin-2level");

use DBI;
use Data::Dumper;

{
    my $user = 'test';
    my $pass = 'test';
    my $database = 'test';

    # DB 接続
    my $dbh = DBI->connect("DBI:mysql:database=$database;host=", $user, $pass, {
        RaiseError => 1,
        PrintError => 1,
        AutoCommit => 0,
    }) or die $DBI::errstr;

    my $sql = q(
        SELECT SQL_CALC_FOUND_ROWS
              id
            , iso
            , name
            , printable_name
            , iso3
            , numcode
        FROM
            country
    );

    my $h = $dbh->prepare($sql) or die $DBI::errstr;
    $h->execute() or die $DBI::errstr;

    my @c = @{ $h->{NAME_lc} };
    my %r;
    $h->bind_columns(\(@r{@c}));
    while ($h->fetch) {
        print(Data::Dumper->Dump([\%r]));
    }

    # DB 切断
    $dbh->disconnect;
}