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