# Save the prospect object

  eval { $prospect->save };
  if ( $@ ) {
      die "Cannot save prospect:",
          "$SPOPS::Error::system_msg\n";
  }
  print "Prospect ID: ", $prospect->id, "\n";