use strict;
use DBI;
use Carp ('verbose');
...
my $dbh = DBI->connect( $dsn, $username, $password, $options )
  or die "cannot connect to '$dsn'\n";
$dbh->{HandleError} = sub {
	warn $DBI::errstr;
  # how to display the last statement ??
	Carp::confess
};

...

my $insstm = "insert into mytable values ( ?, ? )";
my $inssth = $dbh->prepare( $insstm );

for ( 1..3 ) {
  $inssth->execute( myseq.nextval, $_ );
}