Select Code to Download

use strict;
#use diagnostics;
...
write_mets();

1;

$ perl S2.pl
DIE ERROR: garbage after JSON object, at character offset 7413 (before
+ "n\n") at S2.pl line 30. :

$ perl S2.pl
Error decoding data from data1