Select Code to Download

package Outside::In;
use strict;
...
$obj2->name('Fred');
print $obj1->name, "\n", $obj2->name, "\n";
print $obj1->();