use CGI;
use Cwd;

mkdir "test";
chdir "test";

my $currentdir = getcwd;
print "Current dir is: $currentdir \n";