use Path::Class;
my $filedir = file(__FILE__)->absolute->dir;