Select Code to Download

#define exec(arg)
BEGIN { exec("cpp $0 | $^X") }  # nyah nyah nyah-NYAH nyah!!
...
#define QS(ARG)      CPP(main::qual_string, ARG)
#define QG(ARG)      CPP(main::qual_glob, ARG)
#define NL           say ""

eval 'exec perl $0 ${1+"$@"}'
               if 0;
...
    QS(  *STDERR       );
    say "back to main";
}

@12 = 12->(12);