my $dir = dirname($0);