diff -ur gnupod-0.99.8.orig/tools/gnupod_install.pl gnupod-0.99.8/tools/gnupod_install.pl
--- a/tools/gnupod_install.pl	2009-07-10 23:20:05.000000000 +0000
+++ b/tools/gnupod_install.pl	2017-07-30 11:38:42.036486304 +0000
@@ -19,10 +19,10 @@
 
 my $VINSTALL = `cat .gnupod_version`; #Version of this release
 
-#Check if everything looks okay..
+my $include_dir = "/usr/share/perl5";
 die "File .gnupod_version does not exist, did you run configure?\n" unless $VINSTALL;
 die "Expected 5 arguments, got ".int(@ARGV)."\n make will run me, not you! stupid human!" if !$opts{mandir} || $ARGV[6];
-die "Strange Perl installation, no \@INC! Can't install Perl-Module(s), killing myself..\n" if !$INC[0];
+die "Strange Perl installation, no \@INC! Can't install Perl-Module(s), killing myself..\n" if !$include_dir;
 
 if($opts{MODE} eq "INSTALL") {
  #ok, we are still alive, let's blow up the system ;)
@@ -144,13 +144,13 @@
 #Uninstall Modules
 sub remove_pm {
  my($globme, $modi) = @_;
- print " > Removing Modules at $INC[0]/$modi\n";
+ print " > Removing Modules at $include_dir/$modi\n";
  foreach (glob($globme)) {
-  my $rmme = $INC[0]."/$modi/".fof($_);
+  my $rmme = $include_dir."/$modi/".fof($_);
   print "   -> Removing $rmme  ";
    killold($rmme);
  }
- rmdir($INC[0]."/$modi") or print "Could not remove $INC[0]/$modi: $!\n";
+ rmdir($include_dir."/$modi") or print "Could not remove $include_dir/$modi: $!\n";
 }
 
 
@@ -175,7 +175,7 @@
 sub install_pm {
 my($basedir, $modi, $perlbin, $pfix) = @_;
 
-my $fullINCdir = "$pfix"."$INC[0]/$modi";
+my $fullINCdir = "$pfix"."$include_dir/$modi";
 my $stepINC    = _recmkdir($fullINCdir);
 
 print "Installing Modules at $stepINC\n";