Select Code to Download

my $data = { one => 1, two => 2 }; 
sub data { return $data; }

my $proto = ref $self;
print $proto->data;

print $self->data;