Ah, you've hit the "print filehandle" parsing problem. Perl knows that foo is a sub as you have predeclared it. The problem with print bar () is that print will try to print the empty list to the filehandle bar.

If you omit the space between bar and (), it will parse differently.