sub compileOrc
{
  my ($infile) = @_;
  my $outfile;
  my $cc_orc;
  my @res;
  
  $outfile = "$appfile.orc";
  $cc_orc = "sudo $G::PAX_CC -c -i $infile -o $outfile 2>&1";
  (@res) = `$cc_orc`;  ==> This is the one giving the error.
...
}

##</code><code>##

"(@res) = map { /(\w+)/ } `$cc_orc`;  # untaint"