exec (EscapeShellCmd("test_script.pl $file"), $Result);
$n = count($Result);
print " n=$n";