Select Code to Download

*z=\$x;

#inspired by http://www.perlmonks.org/index.pl?node_id=98721
use strict;
...
my $x=2;
*z=\$x; 
print $z;