Select Code to Download

sub xsub (&) {
    my ($code)=@_;
...
my $c_ref = xsub { $a ** $b };

say $c_ref->(2,3);            #> 8