jettero,

Update: Added clarification after seeing jettero's response. Left original post for context.

Would something like this help?

  $errfile = qw( stderr.log ); 

  open STDERR, ">$errfile"; 

  die "And in that sleep of death, who knows what dreams may come...";
[download]

Clarification:

Sorry about the mixup. Here's something crude that seems to work on my machine. YMMV

#!\usr\bin\perl
my @errors = ();
my $ctr = 0;

for ( $ctr = 0; $ctr < 10; $ctr += 1 ) {
   eval {
      if ( $ctr == 5 ) {
         die "Number 5 is not alive.";
      }
   };

   if ( $@ ) {
      push ( @errors, $@ );
   }
}

$ctr = @errors;
if ( $ctr != 0 )
   { for ( @errors ) { print "$_\n"; } 
   }
else
   { print "No errors found."; }
[download]

As I said, it's a bit tortured, but the idea is to wrap the DBI stuff into an eval block, pushing the problems onto @errors. Later, you can dump them to the screen, to a file, or whatever.

Sorry for the confusion...

--f