Select Code to Download

use strict;
use Data::Dumper;
...

my $self = main::->new();
$self->parse('some.xml');

$VAR1 = [
          bless( {}, 'main' ),
          'foo',
          'bar'
        ];