programming-examples/perl/File/Using chdir to change the current directory.pl

chdir '..';

opendir(DIRECTORY, '.') 
    or die "Can't open directory.";

print join (', ', readdir(DIRECTORY));

closedir DIRECTORY;