Select Code to Download

sub outer {
    my $x = shift;

...
        return $x;
    }
}

sub outer {
    my $x = shift;
    my $inner = sub { return $x };
}