package t63;

use File::Basename;

my $incpath = __PACKAGE__.".pm";
$incpath =~ s/::/\//g;
our $dir = dirname($INC{$incpath})||'.';

print "Dir: $dir\n";
1;