use File::Basename;
my $dir = dirname __FILE__;