Select Code to Download

my $obj = new Parser();
$obj->parse;
print "$_\n" for @{$$obj{_data}};

package Parser;
our $ref;
...
   $parser->start($$self{str})
   ...
}