Select Code to Download

{   package MyObj;
    sub retro { bless { name => $_[1] }, $_[0] }
...

my $obj = MyObj->retro("aghag");
my $obj2 = retro MyObj("aaa"); # with the usual caveats