BEGIN {
     my $homedir = (getpwuid($>))[7];
     my $n_inc = scalar @INC;
     for (my $i = 0; $i < $n_inc; $i++ ) {
	  if (-d $homedir . '/perl' . $INC[$i]) {
	      unshift(@INC,$homedir . '/perl' . $INC[$i]);
	      $n_inc++;
	      $i++;
	  }
     }
}