while () { if (/SERVER = cluster/ && $ps eq "daemon") { print "Server entry is correct\n"; exit (110); } else { print "Server entry is incorrect\n"; exit (100); } }