SQLite+Perl: データを挿入する方法

user_info(
    id integer primary key,
    name,
    email
  )

#!/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 =
  "INSERT INTO user_info VALUES(
    null,
    ?,
    ?
  )";

# (2) データ挿入実行
$hst = $hDB->prepare($sql);
if($hst){
	$retval = $hst->execute("hoge","admin\@hoge.com");
	if(!$retval){
		print $hDB->errstr . "\n";
		exit;
	}
	$retval = $hst->execute("hoge2","admin2\@hoge.com");
	if(!$retval){
		print $hDB->errstr . "\n";
		exit;
	}
}
else{
	# エラー処理
	print $hDB->errstr . "\n";
	exit;
}

$hDB->disconnect;