eval {
   $newSeriesSth->execute() || die $newSeriesStr->exrrstr;
};

if ($@) {
  if ($@ =~ /duplicate/) {
     print "Trying to insert duplicate row.\n";
  } else {
     die "Unhandled errer. DBI says: $DBI::errstr";
  }
}