$ perl -e '$foo = \$^S; print eval(q[$$foo]) != eval(q[0+$$foo]) ' 1 [download]
In reply to Re: How's your Perl? by Beechbone in thread How's your Perl? by xmath