use warnings;
use strict;
use Foo;

(my $fooDir = $INC{'Foo.pm'}) =~ s/Foo\.pm$//;
my $tmplDir = "${fooDir}Templates";