diff --git a/lib/linguist/languages.yml b/lib/linguist/languages.yml
index 57c6e8f1..759e3273 100644
--- a/lib/linguist/languages.yml
+++ b/lib/linguist/languages.yml
@@ -2439,6 +2439,7 @@ Perl:
   color: "#0298c3"
   extensions:
   - .pl
+  - .al
   - .cgi
   - .fcgi
   - .perl
diff --git a/samples/Perl/getchar.al b/samples/Perl/getchar.al
new file mode 100644
index 00000000..ecd06589
--- /dev/null
+++ b/samples/Perl/getchar.al
@@ -0,0 +1,13 @@
+# NOTE: Derived from ../../lib/POSIX.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package POSIX;
+
+#line 318 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/getchar.al)"
+sub getchar {
+    usage "getchar()" if @_ != 0;
+    CORE::getc(STDIN);
+}
+
+# end of POSIX::getchar
+1;