Select Code to Download

use FTest;

...

print foreach $test->foo;
print for     $test->foo;

package FTest;

...
sub foo { return 1; }

1;