diff --git a/mbox2web b/mbox2web
index f410283..d83b6a1 100755
--- a/mbox2web
+++ b/mbox2web
@@ -100,6 +100,7 @@ def save_part(msg, disposition):
         "text/x-c++src":                           ".c++",
         "application/x-compressed-tar":            ".tar.gz",
         "application/vnd.oasis.opendocument.text": ".odt",
+        "text/x-perl":                             ".pl",
     }[content_type]
 
     name = msg.get_param("name") or "(data)"
diff --git a/templates/attachment_text_x-perl.html b/templates/attachment_text_x-perl.html
new file mode 100644
index 0000000..aa005de
--- /dev/null
+++ b/templates/attachment_text_x-perl.html
@@ -0,0 +1,8 @@
+<div class="partouter">
+    <div class="partheader">
+        text/x-perl
+    </div>
+    <div class="partinner">
+        <a href="{{url}}">{{name}}</a>
+    </div>
+</div>