use FindBin;
my $dir = $FindBin::Bin;