Monitor DNS Server Status #!/usr/bin/perl unless(-e “/var/run/named.pid”) { `/etc/init.d/named start`; } exit;