Select Code to Download

use CGI;
use My::QXcall;
...
   join(' ', map { "'" . quotemeta($_) . "'" } @terms)
}});

package My::QXcall;
use strict;
...
sub QXerrline  { $LINE  }

1;