my $insert = $dbi->prepare('insert into table values( ?, ?, ?)');
my $ident_sth = $dbi->prepare('select @@identity');

$insert->execute($val1, $val2, $val3);
$ident_sth->execute();
my $identity = $ident_sth->fetchrow_array();