Select Code to Download

use strict;

package Object;
...
untie $o;
eval { print $o->foo() };
print "NoFoo\n" if $@;