diff --git a/pages/list-html-connections/ack2list.pl b/pages/list-html-connections/ack2list.pl
new file mode 100755
index 0000000..a84d621
--- /dev/null
+++ b/pages/list-html-connections/ack2list.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl -w
+use strict;
+my %h = {};
+while (<STDIN>) {
+    chomp;
+    my ($file, $line, $tilde) = split /:/;
+    $tilde =~ s/\///;
+    $file =~ s/\/home\//\/~/;
+    $file =~ s/public_html\///;
+    $h{$tilde}{$file}++;
+
+}
+print qq{<html><head><title>Tilde.Club Connections</title>
+<link rel="stylesheet" type="text/css" href="css/social.css">
+</head>
+<body>
+<h1>Tilde.club connections</h1>
+};
+
+print "<table>";
+for my $x (sort keys %h) {
+    print "<tr><td class=\"user\"><a href=\"/$x\">$x</td><td class=\"linkedby\">is linked by</td><td class=\"linkers\">";
+    for my $y (sort keys %{$h{$x}}) {
+	my $user = $y;
+	$user =~ m/(\~\w+)/;
+	print "<a name=\"$user\" href=\"$user\">$1</a> ";
+
+    }
+    print "</td></tr>\n"
+};
+print "</table>";
+print qq{</body></html>};
diff --git a/pages/list-html-connections/social.sh b/pages/list-html-connections/social.sh
new file mode 100755
index 0000000..ccfe0a0
--- /dev/null
+++ b/pages/list-html-connections/social.sh
@@ -0,0 +1 @@
+ack --html "\/~\w+" /home -o 2>/dev/null|grep -v feed|grep -v anthonydpaul |perl ack2list.pl > public_html/social.html
