Select Code to Download

sub foo {
    my (undef, $x) = @_;
...
my $big = 'a' x 99999999;

foo($big, 'bar');

$ perl -MO=Concise -e '(undef) = $x'
8  <@> leave[1 ref] vKP/REFC ->(end)
...
-           <1> ex-rv2sv sKPRM*/1 ->-
6              <$> gvsv(*y) s ->7
-e syntax OK