Select Code to Download

package Foo;

...
#  print Dumper($self);
  print Dumper($self->{data});
}

use strict;
use warnings;
...

my $obj = Foo->new();
$obj->test();