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