my $twig= new XML::Twig( 
                twig_roots =>                  
                  { 'Person[@id="50000"]' => \&Person },
                twig_print_outside_roots => 1, 
                       );