--- libperlmenu-perl-4.0.orig/demo
+++ libperlmenu-perl-4.0/demo
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #**************************************************************************
 # demo --  Simple PerlMenu demo
 #
--- libperlmenu-perl-4.0.orig/demo_getstr
+++ libperlmenu-perl-4.0/demo_getstr
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #**************************************************************************
 # demo_getstr --  Simple perl menu_getstr call demo
 #
--- libperlmenu-perl-4.0.orig/demo_template
+++ libperlmenu-perl-4.0/demo_template
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #**************************************************************************
 # demo_template --  Full-screen data entry template demo
 #
--- libperlmenu-perl-4.0.orig/demo_top
+++ libperlmenu-perl-4.0/demo_top
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #*********************************************************************
 # demo_top --  PerlMenu demo - Usage of "top menu" functions.
 #
--- libperlmenu-perl-4.0.orig/demo_util
+++ libperlmenu-perl-4.0/demo_util
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #**************************************************************************
 # demo_util --  Demonstate some utilities in menuutil.pl
 #
--- libperlmenu-perl-4.0.orig/ezpasswd
+++ libperlmenu-perl-4.0/ezpasswd
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #**************************************************************************
 # ezpasswd --  Full-screen data display template demo
 #
--- libperlmenu-perl-4.0.orig/ezreg
+++ libperlmenu-perl-4.0/ezreg
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #***************************************************************************
 # EasyReg -- PerlMenu Full-screen Registration Demo
 #            (a "practical" demo for menu.pl)
--- libperlmenu-perl-4.0.orig/ezview
+++ libperlmenu-perl-4.0/ezview
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #***************************************************************************
 # EasyView -- Unix File Viewer/Editor Interface
 #             (a "practical" demo for menu.pl)
--- libperlmenu-perl-4.0.orig/install_hints.pl
+++ libperlmenu-perl-4.0/install_hints.pl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
 #****************************************************************************
 # install_hints.pl
 #
--- libperlmenu-perl-4.0.orig/perlmenu.pm
+++ libperlmenu-perl-4.0/perlmenu.pm
@@ -379,12 +379,12 @@ sub menu_init {
 
 # Method 1 (getcap)
 # Uncomment if you have "getcap"
-    $ku = &getcap('ku');	# Cursor-up
-    $kd = &getcap('kd');	# Cursor-down
-    $kr = &getcap('kr');	# Cursor-right
-    $kl = &getcap('kl');	# Cursor-left
-    $cr = &getcap('cr');	# Carriage-return
-    $nl = &getcap('nl');	# New-line
+#    $ku = &getcap('ku');	# Cursor-up
+#    $kd = &getcap('kd');	# Cursor-down
+#    $kr = &getcap('kr');	# Cursor-right
+#    $kl = &getcap('kl');	# Cursor-left
+#    $cr = &getcap('cr');	# Carriage-return
+#    $nl = &getcap('nl');	# New-line
 
 # Method 2 (tigetstr)
 # Uncomment if you have tigetstr (Solaris) instead of "getcap"
@@ -397,14 +397,14 @@ sub menu_init {
 
 # Method 3 (tput)
 # Uncomment if you have terminfo (and tput) instead of "getcap"
-#    $ku = `tput kcuu1`;	# Cursor-up
-#    $kd = `tput kcud1`;	# Cursor-down
-#    $kr = `tput kcuf1`;	# Cursor-right
-#    $kl = `tput kcub1`;	# Cursor-left
-#    $cr = `tput kent`;		# Carriage-return
+    $ku = `tput kcuu1`;	# Cursor-up
+    $kd = `tput kcud1`;	# Cursor-down
+    $kr = `tput kcuf1`;	# Cursor-right
+    $kl = `tput kcub1`;	# Cursor-left
+    $cr = `tput kent`;		# Carriage-return
 #				# HP-UX 9.05 users: try $cr = `tput cr` if
 #				#                   "tput kent" gives errors
-#    $nl = `tput nel`;		# New-line
+    $nl = `tput nel`;		# New-line
 
     $ansi_ku = "\033[A";	# Ansi cursor-up (for DEC xterm)
     $ansi_kd = "\033[B";	# Ansi cursor-down (for DEC xterm)
@@ -1142,7 +1142,7 @@ sub menu_display_internal {
 # Compute leftmost column (for left-justified or centered menus)
   $left_margin = 0; # Assume left-justified menu (no centering)
   if ($center_menus) {
-    $left_margin = int($main'COLS/2) - int($column_width/2) * items_per_line;
+    $left_margin = int($main'COLS/2) - int($column_width/2) * $items_per_line;
   }
 
 # Clear screen and add top title and bottom prompt