Btw: you can propably save many tears if you evaluate returncodes and errormessages, e.g.

my $sth=$dbh->prepare($statement)
  or die "Error in prepare: ", $DBI::errstr, ": ($DBI::err)\n";
              
$sth->execute()
  or die "Error in prepare:", $DBI::errstr, ": ($DBI::err)\n";
[download]

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"