################## perl script #####################
$test -> {'RecordType'} = UNKNOWN;

#case 1
if($test ->{'RecordType'}){
	print "case1\n";
}

#case 2
if($test ->{'RecordType'} = KNOWN){
	print "case2\n";
}

###########################################