use POSIX qw(getcwd);
my $curdir = getcwd();