Perl eval db error

perlEvalDbError.pl

my $dbh = DBI->connect(
    'dbi:Pg:dbname=DATABASE_NAME',
    q{},
    q{},
    {
        RaiseError         => 1,
        AutoCommit         => 0,
        PrintError         => 0,
        ShowErrorStatement => 1
    }
);

eval {
    $sth->execute;
    1;
} or do {
    $dbh->rollback;
    confess "Insert failed.\n";
};