You are using prototypes without understanding how/what they are. Please read `perldoc perlsub'.

perl -le"sub NOARGS(){q,NONE,};print NOARGS();eval q{print NOARGS(1);}
+;print$@"
[download]

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.