$ perl -E'sub f()  { 0 }  say f + 1;'
1

$ perl -E'sub f($) { 0 }  say f + 1;'
0