Perl & SQLite

#!/usr/bin/perl

use DBI;

$mydb = "testdb";

$hDB = DBI->connect(
"dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
);
if(!$hDB){
  print "$DBI::errstr \n";
  exit;
}

# (1) データ取得のSQL文
$sql = "SELECT * FROM testtb WHERE id = ?";

my ($db_id, $db_name);
#　Perlの変数を列に結び付ける

# (2) データ取得実行
$hst = $hDB->prepare($sql);
$hst->bind_columns(undef, \($db_id, $db_name));

if($hst){
  for($id = 1; $id < 10; $id++){
    $retval = $hst->execute($id);
    if(!$retval){
      print "error";
      print $hDB->errstr . "\n";
      last;
    }
    # @data = $hst->fetchrow_array;
    $data = $hst->fetch;
    print $data;
    if (!$data) {
      print $hDB->errstr . "\n";
      last;
    }
    # print "$data[0], $data[1], $data[2]\n";
    print "$db_id, $db_name\n";
  }
  print "finish";
  $hst->finish;
}
else{
  # エラー処理
  print $hDB->errstr . "\n";
  exit;
}

print "disconnect";
# $hDB->commit;
# $a = <STDIN>;
$hDB->disconnect;