diff --git a/bind8/dns_boot.cgi b/bind8/dns_boot.cgi
index 442e04a32..81044886a 100755
--- a/bind8/dns_boot.cgi
+++ b/bind8/dns_boot.cgi
@@ -1,24 +1,27 @@
 #!/usr/local/bin/perl
 # dns_boot.cgi
 # Create an empty named.conf file and start the name server
+use strict;
+use warnings;
+our (%text, %config, %in);
 
 require './bind8-lib.pl';
 &error_setup($text{'boot_err'});
 &ReadParse();
 
 $config{'named_conf'} =~ /^(\S+)\/([^\/]+)$/;
-$conf_directory = $1;
-$pid_file = $config{'pid_file'} || "/var/run/named.pid";
+my $conf_directory = $1;
+my $pid_file = $config{'pid_file'} || "/var/run/named.pid";
 &lock_file(&make_chroot($config{'named_conf'}));
 &lock_file(&make_chroot("$conf_directory/db.cache"));
-$conf_temp = &transname("webmin.named.conf");
-open(BOOT, ">$conf_temp");
-print BOOT "options {\n";
-print BOOT "\tdirectory \"$conf_directory\";\n";
-print BOOT "\tpid-file \"$pid_file\";\n";
-print BOOT "\t};\n";
-print BOOT "\n";
-$chroot = &get_chroot();
+my $conf_temp = &transname("webmin.named.conf");
+open(my $BOOT, ">", $conf_temp);
+print $BOOT "options {\n";
+print $BOOT "\tdirectory \"$conf_directory\";\n";
+print $BOOT "\tpid-file \"$pid_file\";\n";
+print $BOOT "\t};\n";
+print $BOOT "\n";
+my $chroot = &get_chroot();
 if ($chroot && !-d $chroot) {
 	mkdir($chroot, 0755);
 	}
@@ -32,14 +35,15 @@ if ($config{'slave_dir'} && !-d &make_chroot($config{'slave_dir'})) {
 	mkdir(&make_chroot($config{'slave_dir'}), 0777);
 	}
 if ($pid_file =~ /^(.*)\//) {
-	$pid_dir = $1;
+	my $pid_dir = $1;
 	if (!-d &make_chroot($pid_dir)) {
 		mkdir(&make_chroot($pid_dir), 0777);
 		}
 	}
 if (!-r &make_chroot($pid_file)) {
-	&open_tempfile(PID, ">".&make_chroot($pid_file));
-	&close_tempfile(PID);
+	my $PID;
+	&open_tempfile($PID, ">", &make_chroot($pid_file));
+	&close_tempfile($PID);
 	&set_ownership(&make_chroot($pid_file));
 	}
 if ($in{real} == 0) {
@@ -48,24 +52,24 @@ if ($in{real} == 0) {
 elsif ($in{real} == 1) {
 	# Try to download the root servers file from
 	# ftp://rs.internic.net/domain/named.root
-	$err = &download_root_zone("$conf_directory/db.cache");
+	my $err = &download_root_zone("$conf_directory/db.cache");
 	&error($err) if ($err);
-	print BOOT "zone \".\" {\n";
-	print BOOT "\ttype hint;\n";
-	print BOOT "\tfile \"$conf_directory/db.cache\";\n";
-	print BOOT "\t};\n";
-	print BOOT "\n";
+	print $BOOT "zone \".\" {\n";
+	print $BOOT "\ttype hint;\n";
+	print $BOOT "\tfile \"$conf_directory/db.cache\";\n";
+	print $BOOT "\t};\n";
+	print $BOOT "\n";
 	}
 elsif ($in{real} == 2) {
 	# Use builtin db.cache
 	&execute_command("cp ./db.cache ".&make_chroot("$conf_directory/db.cache"));
-	print BOOT "zone \".\" {\n";
-	print BOOT "\ttype hint;\n";
-	print BOOT "\tfile \"$conf_directory/db.cache\";\n";
-	print BOOT "\t};\n";
-	print BOOT "\n";
+	print $BOOT "zone \".\" {\n";
+	print $BOOT "\ttype hint;\n";
+	print $BOOT "\tfile \"$conf_directory/db.cache\";\n";
+	print $BOOT "\t};\n";
+	print $BOOT "\n";
 	}
-close(BOOT);
+close($BOOT);
 &copy_source_dest($conf_temp, &make_chroot($config{'named_conf'}));
 unlink($conf_temp);
 &unlock_file(&make_chroot("$conf_directory/db.cache"));