my $cwd = `pwd`;
print ("$cwd\n");