Select Code to Download

 #!/usr/lib/perl
use strict;
use warnings;
...
}
print HTML_FILE "</body><br></html>";
close (HTML_FILE);

Use of uninitialized value $element in string eq at XMLGrouper_tr1.pl 
+line 37.
Use of uninitialized value $element in string eq at XMLGrouper_tr1.pl 
+line 45.
Use of uninitialized value $element in string eq at XMLGrouper_tr1.pl 
+line 47.
Use of uninitialized value $element in string eq at XMLGrouper_tr1.pl 
+line 49.