$db->{RaiseError} = 0;
...
$sth->execute(
	$to      || "-",
	$from    || "-",
	$subject || "-",
	$date    || "-",
	$body    || "-",
	$headers || "-"
) or die $db->errstr;

##</code><code>##

~% slocate Heavy.pm
/usr/lib/perl5/5.8.6/Carp/Heavy.pm
/usr/lib/perl5/5.8.6/Exporter/Heavy.pm

##</code><code>##

#!/usr/bin/perl -Tw

use diagnostics;
use strict;
use IO::All;
use DBI;

my $db = DBI->connect( "dbi:Pg:dbname=db;",
    "user", "password" 
) or die( "error message ..." );
$db->{RaiseError} = 1;
$db->{pg_server_prepare} = 1;
$db->{AutoCommit} = 1;

my $sql = "
    INSERT INTO tabmail(para,de,assunto,data,corpo,cabecalho)
    VALUES(?,?,?,?,?,?)
";
my $sth = $db->prepare($sql);
for ( 1 .. 2000) {
	$sth->execute($_,$_,$_,$_,$_,$_) or die $db->errstr;
}