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

print $ENV{PWD}, "\n";
print `ls`;