diff --git a/at/delete_jobs.cgi b/at/delete_jobs.cgi
index 05c8ae1db..8adcf323f 100755
--- a/at/delete_jobs.cgi
+++ b/at/delete_jobs.cgi
@@ -1,16 +1,19 @@
 #!/usr/local/bin/perl
 # Delete multiple at jobs
+use strict;
+use warnings;
+our(%access, %text, %in);
 
 require './at-lib.pl';
 &ReadParse();
 &error_setup($text{'deletes_err'});
-@d = split(/\0/, $in{'d'});
+my @d = split(/\0/, $in{'d'});
 @d || &error($text{'deletes_enone'});
 
 # Delete each one
-@jobs = &list_atjobs();
-foreach $d (@d) {
-	($job) = grep { $_->{'id'} eq $d } @jobs;
+my @jobs = &list_atjobs();
+foreach my $d (@d) {
+	my ($job) = grep { $_->{'id'} eq $d } @jobs;
 	$job || &error($text{'delete_egone'});
 	&can_edit_user(\%access, $job->{'user'}) ||
 		&error($text{'edit_ecannot'});