use File::Spec;
use Cwd();
use lib File::Spec->catfile( Cwd::cwd(), 'mysubdirectory' );