my $dir = `pwd`;