Index: libgtop2-2.30.0/lib/lib.pl
===================================================================
--- libgtop2-2.30.0.orig/lib/lib.pl
+++ libgtop2-2.30.0/lib/lib.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
-$[ = 1;			# set array base to 1
+use Array::Base (1);
+
 $, = ' ';		# set output field separator
 $\ = "\n";		# set output record separator
 
