open(IN,"/tmp/file.txt");
my $ret=$!;
print "$ret\n";
if($ret){
	print "NOK\n";
} else {
	print "OK\n";
}