print "Foo\n" while &func($bar);