Select Code to Download

my $twig = 'XML::Twig'->new;
$twig->xparse($input_xml);

my $twig = 'XML::Twig'->new( twig_handlers =>  { result => \&record })
+;
$twig->parse($input_xml);

  DB<2> c
Exiting subroutine via next at vance.pl line 91.
...
    eval {...} called at /usr/lib/perl5/site_perl/5.22/XML/Twig.pm lin
+e 767
    XML::Twig::parse(XML::Twig=HASH(0x6003ead30), "<?xml version=\"1.0
+\" encoding=\"UTF-8\"?><response><result><chec"...) called at vance.p
+l line 33
Exiting subroutine via next at vance.pl line 91.

use strict;
use warnings;
...
  }
  return \@f;
}