Select Code to Download

$ perl -wle 'use strict; my $x = 1; my $y = \$x; my $z = \$y; print "Y
+: ", ref($y), " Z: ", ref($z)'
Y: SCALAR Z: REF
$