diff --git a/TODO b/TODO
index f945a42..2ba06b7 100644
--- a/TODO
+++ b/TODO
@@ -14,7 +14,6 @@ Todo
   should still report on the original compressed file.
 - Cache tools._python_version.
 - Determine if perl files are perl5 or perl6.
-- Use perldoc on pod files.
 - Add bandit tool for python.
 
 
@@ -155,6 +154,7 @@ Done
 - Have a sandbox for unsafe (or all) tools.
 - Simplify coloring of mccabe. Just color functions with complexity greater than 10.
 - Add rich LSCOLORS if the environment variable is not set.
+- Use perldoc on pod files.
 
 A-syntax, B-tests, C-auto docs, D-lint, E-coverage, F-profile, G-tidy, H-import deps
              A B C D E F G H
diff --git a/tools.py b/tools.py
index 159b57d..1b3b64c 100644
--- a/tools.py
+++ b/tools.py
@@ -388,7 +388,7 @@ perl_syntax.dependencies = {"perl"}
 
 
 def perldoc(path):
-    stdout, stderr, returncode = _do_command(["perldoc", path])
+    stdout, stderr, returncode = _do_command(["perldoc", "-t", path])
     return ((Status.info, fill3.Text(stdout)) if returncode == 0
             else (Status.placeholder, fill3.Text(stderr)))
 perldoc.dependencies = {"perl-doc"}
@@ -565,8 +565,10 @@ def tools_for_extension():
         "pl": [perl_syntax, perldoc, perltidy],
         "pm": [perl_syntax, perldoc, perltidy],
         "t": [perl_syntax, perldoc, perltidy],
-        "p6": [perl6_syntax],
-        "pm6": [perl6_syntax],
+        "p6": [perl6_syntax, perldoc],
+        "pm6": [perl6_syntax, perldoc],
+        "pod": [perldoc],
+        "pod6": [perldoc],
         "java": [antic, uncrustify],
         "class": [jlint],
         "c": [splint, uncrustify],