Select Code to Download

#!/usr/bin/perl
use strict;
...
}

print map { "$_ => $results{$_}\n" } keys %results;

jth@reina:~/tmp$ perl 848551.pl 
FZGA34177.b1 => 35000

#!/usr/bin/perl
use strict;
...
}

print map { "$_ => $results{$_}\n" } keys %results;

jth@reina:~/tmp$ perl 848551.pl 
./848551.xml:55: parser error : Premature end of data in tag t_volume 
+line 54
...

^
FZGA34177.b1 => 35000