Select Code to Download

$ perl -le 'my $u; sub u :lvalue {$u} print ref \u'
SCALAR

$ perl -le 'my $u; sub u :lvalue {$u} print ref \&u'
CODE

$ perl -le 'my $u; sub u :lvalue {$u} print ref \u; print \u; print \$
+u'
SCALAR
SCALAR(0x812dd80)
SCALAR(0x812dd80)