--- perlmenu.pm.orig	1997-02-14 21:55:39.000000000 +0100
+++ perlmenu.pm	2010-02-19 12:18:19.000000000 +0100
@@ -105,12 +105,12 @@
 # Uncomment these statements if you DON'T have "getcap()" OR
 # if the demo doesn't appear to work (there's a bug in some getcap's).
 #
-#if ($] >= 5.001) {			# Perl5 ONLY!
-#package Perl5::Menu_PL::Compat;	# Don't pollute perlmenu.pm namespace
-#require Term::Cap;			# Get Tgetent package
-#$term = Tgetent Term::Cap { OSPEED => 9600 };	   # Define entry
-#sub perlmenu::getcap { $term->{"_" . shift()} };  # Define local subroutine
-#}
+if ($] >= 5.001) {			# Perl5 ONLY!
+package Perl5::Menu_PL::Compat;	# Don't pollute perlmenu.pm namespace
+require Term::Cap;			# Get Tgetent package
+$term = Tgetent Term::Cap { OSPEED => 9600 };	   # Define entry
+sub perlmenu::getcap { $term->{"_" . shift()} };  # Define local subroutine
+}
 
 # PERL4 ONLY (GETCAP PROBLEMS)
 # Uncomment these statements if you DON'T have "getcap()" OR