Select Code to Download

   $pfm->run_on_finish (
      sub {
...

          my $delete_list = $data_structure_reference->{delete_list};
          my $insert_list = $data_structure_reference->{insert_list};

            if ( keys %delete_list || keys %insert_list ) {

...

              $pfm->finish;
            }