Select Code to Download

package OverloadObj
use Want;
...
    untie $$self;
}
1;

package OverloadObj::Test;
use OverloadObj;
...
$test = new OverloadObj::Test;
$test->speak;
print "$test";