Select Code to Download

  sub flip { ${$_[0]} = !${$_[0]} };

  sub flip { $$_[0] = !($$_[0]) }

  perl -w -e 'use strict; sub flip { $$_[0] = !($$_[0]) }; my $z=1; fl
+ip(\$z); print "$z\n"'
  1