gistfile1.pl

package nolocal;
use warnings;
use strict;

use File::Spec ();

our $VERSION   = '0.01';

sub import {
  my @newinc;

  foreach my $dir ( @INC ) {
    my @dirs = File::Spec->splitdir( $dir );
    push @newinc, $dir
      unless grep /^local$/, @dirs
    ;
  }

  @INC = @newinc;

}