Select Code to Download

#!/usr/bin/perl
use strict;
...

print Dumper($xml);
exit;

$VAR1 = {
          'detail' => {
...
                 }
        };

#!/usr/bin/perl
use strict;
...
}

exit;