use Cwd;
my $Current_Dir = getcwd;
print STDOUT "the current directory is $Current_Dir\n";