Select Code to Download

my $object = new Object();
$object->hash(
...
    dos  => 'two',
    tres => 'three',
);

sub hash {
    my $class = shift;
...
    $class->{uno} = $param->{uno};
    print $class->{uno}, "\n";
}