####Code of Library####
package Foo1;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $debug %EXPORT_TAGS);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw('bar');

sub bar { 
print "Hello \n";
}

1;
################################
################################
######parent Code ****##########
#######test.pl#################

use Foo1;

Foo1->bar();



##################################