Select Code to Download

for my $obj (@objstoinsert){
  local $SIG{__WARN__} = sub { die "died with $_[0], the object was $o
+bj" }
  $obj->insert()
}