sub process_file ($)
 {
 my $filename= shift;
 my $twig= new XML::Twig();
 print "filename: [$filename]\n";
 $twig->parse ($filename);
#  $twig->print; 
 }

##</code><code>##

not well-formed at line 1, column 2, byte 2 at C:/Program Files/Languages/Perl/site/lib/XML/Parser.pm line 168