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