perl$ sub Foo {
 perl>  print "Foo called\n";<P>

 ERROR: Missing right bracket at (eval 3) line 5, at end of line
 syntax error at (eval 3) line 5, at EOF