BEGIN { unshift(@INC, ".../sharedlib1.0") } use sharedlib; sub perlsub { #call some function in sharedlib }