Select Code to Download

$obj->{attibute}
# instead of
$obj->get_attribute();

package Foo;
use Data::Dumper;
...
}

sub DESTROY{}