my $dirpath = `pwd`;