Monitor DNS Server Status

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