#!/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";