#!/usr/bin/perl
use lib "../B";
use Foo1 foo;
use Tk;  # put in to show that @inc is still working fine

foo();
print "Goodbye\n";


##</code><code>##

#module Foo1.pm located in B

package Foo1;
require Exporter;
 
@ISA = qw|Exporter|;
@EXPORT_OK = qw|foo|;
 
sub foo
{
   print "Hello World, I'm here\n";
}
1;

##</code><code>##

$  ./A/Foo-use
 Hello World
 Goodbye