Select Code to Download

#!/usr/bin/perl

...
close(OUTFILE);
close(FILE);
exit;

C:\Users\rchen4\Desktop\Perl_XML>perl parse_prepare.pl
Use of uninitialized value $data in pattern match (m//) at C:/Dwimperl
+/perl/site
...
                          'g' => \*Object::MultiType::Saver::NULL,
                          'b' => \sub { "DUMMY" }
                        }, 'Object::MultiType::Saver' ))}, 'XML::Smart
+' );