Select Code to Download

#!/usr/bin/env perl    

...
$obj->{avalue} = 10;

print Dumper($obj);

$VAR1 = bless( {
                 'avalue' => 10
               }, 'a' );