use Path::Class;
my $THIS_DIR = file(__FILE__)->absolute->dir;
print $THIS_DIR,"\n";
__END__