new file mode 100755
--- /dev/null
+++ b/scripts/mcbot.cgi
@@ -0,0 +1,32 @@
+#!/usr/bin/perl -W
+
+use strict;
+
+my $line;
+my $a;
+my $b;
+
+print "CONTENT-TYPE: text/html\n\n";
+
+print "<html>\n\t<head>\n\t\t<title>Factoids</title>\n\t</head>\n<body>\n";
+open(FD, "dbtool -l |") or die("Cannot open file");
+
+foreach $line(<FD>) {
+ ($a, $b) = split(/:/, $line, 2);
+ $a =~ s/^[\t ]+//; # skip blanks
+ $b =~ s/^[\t ]+//; # skip blanks
+ $b =~ s/[\n]+//; # for html source :)
+
+ if ($b) {
+ if($b =~ /^http/ ) {
+ print "$a - <a href=\"$b\">$b</a><br>";
+ } else {
+ print "$a - $b<br>";
+ }
+ }
+}
+
+print "\n<br>$a\n";
+
+print "</body></html>\n";
+close(FD);