use FTest;

my $test = new FTest ();

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

##</code><code>##

package FTest;

sub new { return bless {}, shift; }
sub foo { return 1; }

1;