use FindBin qw($Bin);
my $dir = $Bin;