diff --git a/lib/github/markups.rb b/lib/github/markups.rb
index 61138e85..b27f8ddd 100644
--- a/lib/github/markups.rb
+++ b/lib/github/markups.rb
@@ -51,4 +51,4 @@
   "restructuredtext"
 )
 
-command(::GitHub::Markups::MARKUP_POD, :pod2html, /pod/, ["Pod"], "pod")
+command(::GitHub::Markups::MARKUP_POD, :pod2html, /pod/, ["Pod", "Perl"], "pod")
diff --git a/test/fixtures/file-variables.sh b/test/fixtures/file-variables.sh
new file mode 100755
index 00000000..99792ffe
--- /dev/null
+++ b/test/fixtures/file-variables.sh
@@ -0,0 +1,31 @@
+#!/bin/bash
+
+t=1
+./lib/github/commands/pod2html <( cat - <<EOF
+=pod
+
+=head1 NAME
+
+Test
+
+=cut
+
+# -*- mode: perl; -*-
+EOF
+) | grep -q '<h1 id="NAME">' || { echo "not ok $t"; exit 1; } && { echo "ok $t"; }
+let t=($t + 1)
+
+./lib/github/commands/pod2html <( cat - <<EOF
+#!/usr/bin/perl
+# -*- mode: perl; -*-
+
+=pod
+
+=head1 NAME
+
+Test
+
+=cut
+EOF
+) | grep -q '<h1 id="NAME">' || { echo "not ok $t"; exit 1; } && { echo "ok $t"; }
+let t=($t + 1)
diff --git a/test/markups/README.pod b/test/markups/README.pod
index 8c92eb5b..1a38dde6 100644
--- a/test/markups/README.pod
+++ b/test/markups/README.pod
@@ -1,3 +1,4 @@
+# -*- mode: perl; -*-
 =head1 Matrixy
 
 =head2 INTRODUCTION