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文
$id = 1;
$sql = "DELETE FROM user_info WHERE id = $id";

# (2) データ削除の実行
$hst = $hDB->do($sql);
if($hst == 0E0){
	print "Not Found data (id = $id)\n";
	exit;
}
else{
	print "Success\n";
}
$hDB->disconnect;