use FindBin qw($RealBin);
use lib "$RealBin/../my_lib";
use MyModule;

my $foo = MyModule->new;
say $foo->bar;
...