Index: Padre/lib/Padre/MimeTypes.pm
===================================================================
--- Padre/lib/Padre/MimeTypes.pm	(revision 7221)
+++ Padre/lib/Padre/MimeTypes.pm	(working copy)
@@ -76,11 +76,11 @@
 		tcl   => 'application/x-tcl',
 		vbs   => 'text/vbscript',
 		patch => 'text/x-patch',
-		pl    => \&perl_mime_type,
-		plx   => \&perl_mime_type,
-		pm    => \&perl_mime_type,
-		pod   => \&perl_mime_type,
-		t     => \&perl_mime_type,
+		pl    => perl_mime_type(),
+		plx   => perl_mime_type(),
+		pm    => perl_mime_type(),
+		pod   => perl_mime_type(),
+		t     => perl_mime_type(),
 		conf  => 'text/x-config',
 		sh    => 'application/x-shellscript',
 		ksh   => 'application/x-shellscript',