Select Code to Download

my sub foo {
    # ...
}

my $foo = sub { ... };

sub invert {
    my ($n, $p)=@_;
...
    }
    expp($n, $p-2);
}