C:\temp>perl -ce "sub a ($,$) {}"
-e syntax OK

C:\temp>perl -wce "sub a ($,$) {}"
Illegal character in prototype for main::a : $,$ at -e line 1.
-e syntax OK