int $err;
open (TL,">test.txt");
print TL ("pass");
close (TL);
$err = "grep 'error' test.txt |wc -l ";
printf ("VALUE %d ",$err);
if($err != 0){
print ("FAILED");
}
else
{
print ("PASSED");
}