Select Code to Download

my $x;

my $y = undef;

my $z = shift;
my $w = $hash{foo};
...
while (my ($s, $t) = each %hash) {...}
while (my $r = <>) {...}
...