use strict;
use warnings 'all';

use Cwd;

my $docs = 'C:\Documents and Settings';

chdir($docs) || die "Couldn't change directory to $docs: $!";

print "Current directory is ", getcwd, "\n";

if (-r 'Administrator') {
        print "Administrator is readable.\n";
} else {
        die "Couldn't read 'Administrator': $!";
}

if (chdir('Administrator')) {
        print "Changed directory to Administrator.\n";
} else {
        die "Couldn't change directory to 'Administrator': $!";
}

print "Current directory is ", getcwd, "\n";

if (opendir(ADMINDIR, "$docs\\Administrator")) {
        print "Opened directory Administrator.\n";
} else {
        die "Couldn't open directory 'Administrator': $!";
}