if ($OS =~ /5\.[678]/) {
	Shutdown("$Hostname", "/usr/sbin/init 5");
} elsif ($OS =~ /4\.1\./) {
	Shutdown("$Hostname", "/usr/etc/shutdown -h now");

sub Shutdown {
	my ($host, $cmd, $pid);
	($host, $cmd) = @_; 
	my (@entry, $newentry);
	print LOG "Alert: $IP is shutting down\n"; 
	unless ($pid = fork) {
		unless (fork) {
			exec("$Rsh", "$host", "$cmd");
			exit 0;
		}
	exit 0
	}
	waitpid($pid,0);
	return;
}