Select Code to Download

sub curried {
  my @args = @_;
...
}
$sub = curried("xyz");
$sub->(abc);

{
  my $mysub = \&mysub;
  *mysub = sub { $mysub->('xyz', @_) };
}

#! /usr/bin/perl -w

...
        $func->(@args);
    }
}