#
use Cwd;
print "\ncd=" . `cd`;
print "\ngetcwd=" . getcwd();
#