print $ENV{PWD},"\n";
chdir("..")
print $ENV{PWD},"\n";