$ perl -e '$foo = \$^S; print eval(q[$$foo]) != eval(q[0+$$foo]) ' 1