Select Code to Download

<?xml version="1.0" encoding="utf-8"?>
<Accounts locale="en_US">
...
    <Company/>
  </Account>
</Accounts>

my $file = shift || (print "NOTE: \tYou didn't provide the name of the
+ file to be checked.\n" and exit);
my $twig = XML::Twig -> new ( twig_roots => { 'Account' => \& parsing 
+} ); #'twig_roots' mode builds only the required sub-trees from the d
+ocument while ignoring everything outside that twig.
...
    return $ref;
    $twig -> purge;
}