Select Code to Download

my $data = <<STOP;
<outside>
...

    print $attrs{name};
}

use Data::Dumper;
my $tree = $parser->parse($data);
print Dumper $tree;