diff --git a/mbox2web b/mbox2web
index dd60a0d..1f15df4 100755
--- a/mbox2web
+++ b/mbox2web
@@ -61,6 +61,7 @@ def save_part(msg, disposition):
         "application/x-gzip":       ".gz", # more likely tar.gz, but we can't know without looking into it which we ain't
         "image/gif":                ".gif",
         "text/x-c":                 ".c",
+        "application/x-perl":       ".pl",
     }[content_type]
 
     name = msg.get_param("name") or "(data)"
diff --git a/templates/attachment_application_x-perl.html b/templates/attachment_application_x-perl.html
new file mode 100644
index 0000000..1d62386
--- /dev/null
+++ b/templates/attachment_application_x-perl.html
@@ -0,0 +1,8 @@
+<div class="partouter">
+    <div class="partheader">
+        application/x-perl
+    </div>
+    <div class="partinner">
+        <a href="{{url}}">{{name}}</a>
+    </div>
+</div>