# Why does changing $foo fail silently?  I don't quite understand.
# It works in perl5.{00503,6.1,8.0,8.1}
*foo=*[;print(($foo^=0)++ eq $foo++,$/);