use Cwd;
my $dir = getcwd;
use lib $dir."/mysubdirectory";