Select Code to Download

insert into table .......... select @@IDENTITY

#!/usr/local/bin/perl -w
use DBI;
...
my $seqid=  $$data{foo};
my $err  =  $sth->errstr;
print "$seqid, $err\n";