#!perl # c:/path/to/dirapp/test.pl use strict; use warnings; use FindBin; use lib $FindBin::Bin.'/myperl-lib'; use library_sub; print test(); #### package library_sub; # c:/path/to/dirapp/myperl-lib/library_sub.pm use strict; use warnings; use Exporter qw(import); our @EXPORT = ( 'test' ); sub test { return "library_sub::test - OK"; } 1;