diff --git a/lib/WebGUI/Operation/LDAPLink.pm b/lib/WebGUI/Operation/LDAPLink.pm
index d303a06d5..cac6aad64 100644
--- a/lib/WebGUI/Operation/LDAPLink.pm
+++ b/lib/WebGUI/Operation/LDAPLink.pm
@@ -361,16 +361,16 @@ links.  Each LDAP link is tested and the status of that test is returned.
 sub www_listLDAPLinks {
 	my $session = shift;
 	return $session->privilege->adminOnly() unless canView($session);
-	my ($output, $p, $sth, $data, @row, $i);
 	my $i18n = WebGUI::International->new($session,"AuthLDAP");
 	my $returnUrl = "";
 	if ($session->form->process("returnUrl")) {
 		$returnUrl = ";returnUrl=".$session->url->escape($session->form->process("returnUrl"));
 	}
-	$sth = $session->db->read("select * from ldapLink order by ldapLinkName");
-	$row[$i] = '<tr><td valign="top" class="tableData">&nbsp;</td><td valign="top" class="tableData">'.$i18n->get("LDAPLink_1076").'</td><td>'.$i18n->get("LDAPLink_1077").'</td></tr>';
+	my $sth = $session->db->read("select * from ldapLink order by ldapLinkName");
+    my $i    = 0;
+    my @row  = ();
 	$i++;
-	while ($data = $sth->hashRef) {
+	while (my $data = $sth->hashRef) {
 		$row[$i] = '<tr><td valign="top" class="tableData">'
 			.$session->icon->delete('op=deleteLDAPLink;llid='.$data->{ldapLinkId},$session->url->page(),$i18n->get("LDAPLink_988"))
 			.$session->icon->edit('op=editLDAPLink;llid='.$data->{ldapLinkId}.$returnUrl)
@@ -391,9 +391,14 @@ sub www_listLDAPLinks {
 		$i++;
 	}
 	$sth->finish;
-	$p = WebGUI::Paginator->new($session,$session->url->page('op=listLDAPLinks'));
+	my $p = WebGUI::Paginator->new($session,$session->url->page('op=listLDAPLinks'));
 	$p->setDataByArrayRef(\@row);
-	$output .= '<table border="1" cellpadding="3" cellspacing="0" align="center">';
+	my $output = qq{<table border="1" cellpadding="3" cellspacing="0" align="center">\n};
+    $output .= q{<tr><td valign="top" class="tableData">&nbsp;</td><td valign="top" class="tableData">}
+             . $i18n->get("LDAPLink_1076")
+             . q{</td><td>}
+             . $i18n->get("LDAPLink_1077")
+             . qq{</td></tr>\n};
 	$output .= $p->getPage;
 	$output .= '</table>';
 	$output .= $p->getBarTraditional;