Select Code to Download

sub qs {
    return @_ if @_ < 2;
    my $p = pop;
    qs(grep $_ < $p, @_), $p, qs(grep $_ >= $p, @_);
}