Select Code to Download

   if( 0 == @_ ) {
        &$sub();
    } elsif( 1 == @_ ) {
...
        &$sub( $_[0][0], $_[1][0], $_[2][0] );
    # etc to some arbitrary maximum number of arguments
    }

if ($#_ <= 255) {
    my $lim = $#_;
...
} else {
    eval "&\$sub( " . join( ", ", map "\$_[$_][0]", 0..$#_ ) . " )";
}