Select Code to Download

$ time perl maketables_threads_broken_minimal.pl 2> dev/null
Spawning threads...  1 statistics threads started
...
user    0m6.100s
sys    0m1.008s

print $Write "pyros=cenros(outcome,cenoutcome)\n";
print $Write "mean(pyros)\n";
$res = <$Read>;

#!/usr/bin/perl

...
    system("perl", "-c", $file); 
    return $? >> 8;
}