Select Code to Download

sub compile_filter() {
    my @criteria;
...
    debug("CRITERIA are\n$real_code");
    eval($real_code) || die;
}

sub dequeue($$) {
    my($leader, $body) = @_;
...
    my $text = $_[0];
    return dequeue qq<|QQ|>, $text;
}