--- a/QScintilla/Lexers/LexerPerl.py	Sun Feb 28 14:33:07 2010 +0000
+++ b/QScintilla/Lexers/LexerPerl.py	Sun Feb 28 17:27:35 2010 +0000
@@ -70,3 +70,11 @@
                          QsciLexerPerl.QuotedStringQX, 
                          QsciLexerPerl.SingleQuotedHereDocument, 
                          QsciLexerPerl.SingleQuotedString]
+    
+    def defaultKeywords(self, kwSet):
+        """
+        Public method to get the default keywords.
+        
+        @param kwSet number of the keyword set (integer) 
+        """
+        return QsciLexerPerl.keywords(self, kwSet)