diff --git a/bind8/refetch.cgi b/bind8/refetch.cgi
index 946839da7..e53b7bb6b 100755
--- a/bind8/refetch.cgi
+++ b/bind8/refetch.cgi
@@ -1,21 +1,24 @@
 #!/usr/local/bin/perl
 # Re-download the root zone servers
+use strict;
+use warnings;
+our (%text, %in);
 
 require './bind8-lib.pl';
 &error_setup($text{'refetch_err'});
 &ReadParse();
 
 # Work out the filename
-$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
-&can_edit_zone($zone, $view) ||
+my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
+&can_edit_zone($zone) ||
 	&error($text{'hint_ecannot'});
-$file = $zone->{'file'};
-$rootfile = &make_chroot(&absolute_path($file));
+my $file = $zone->{'file'};
+my $rootfile = &make_chroot(&absolute_path($file));
 
 # Try to download the root servers file from
 # ftp://rs.internic.net/domain/named.root
 &lock_file($rootfile);
-$err = &download_root_zone(&absolute_path($file));
+my $err = &download_root_zone(&absolute_path($file));
 &error($err) if ($err);
 &unlock_file($rootfile);