Select Code to Download

sub scribble {
    for (@_) {
...
    };
    @_ = ();
};

sub scribble {
    while ($_ = shift) {
        ...
    };
};