perl DBI 最後に挿入したIDを取得する方法 last_insert_id

$rv = $dbh->last_insert_id($catalog, $schema, $table, $field);
$rv = $dbh->last_insert_id($catalog, $schema, $table, $field, \%attr);

#!/usr/local/bin/perl -w

# create table users(id INTEGER NOT NULL PRIMARY KEY AUTO_INCREMENT,
#		name varchar(32));
# insert into users(name) values("a");
# insert into users(name) values("b");
# insert into users(name) values("c");

use strict;
use warnings;
use DBI;

my $dbi = 'mysql';
my $database = 'test';
my $hostname = 'localhost';
my $dsn = "dbi:$dbi:database=$database;host=$hostname";
my $user = 'root';
my $password = '';

#my $dbh = DBI->connect($dsn, $user, $password, {'RaiseError' => 1} )
my $dbh;
my $rv;
$dbh = DBI->connect($dsn, $user, $password, {'RaiseError' => 1} )
	or die $dbi->errstr;
my $sth = $dbh->prepare( qq {
		INSERT INTO users(name) VALUES(?)
	} )
	or die $dbh->errstr;
$rv = $sth->execute("d")
	or die $dbh->errstr;
print "$rv\n";
$rv = $dbh->last_insert_id($database, $database, 'users', 'id');
print "last insert id: $rv\n";
$dbh->disconnect();