sub MIME::Lite::HTML::absURL($,$){ 


##</code><code>##

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

##</code><code>##

C:\temp>perl -wMO=Concise,a -e "sub a ($,$) {}"
Illegal character in prototype for main::a : $,$ at -e line 1.
main::a:
2  <1> leavesub[1 ref] K/REFC,1 ->(end)
1     <;> nextstate(main 2 -e:1) P:{ ->2
-e syntax OK

C:\temp>perl -wMO=Concise,a -e "sub a ($$) {}"
main::a:
2  <1> leavesub[1 ref] K/REFC,1 ->(end)
1     <;> nextstate(main 2 -e:1) P:{ ->2
-e syntax OK

C:\temp>perl -wMO=Concise,a -e "sub a {}"
main::a:
2  <1> leavesub[1 ref] K/REFC,1 ->(end)
1     <;> nextstate(main 2 -e:1) P:{ ->2
-e syntax OK