use Cwd;
print "Current dir is: ", cwd, "\n";

opendir(TEXTFILES, "desktop") || die "Couldn't open the text file directory: $!";
@data=readdir(TEXTFILES);
foreach (@data) {
push (@dir) if (-d "./desktop/$_");
}
closedir(TEXTFILES);
print @dir; # This line is just here to make sure it worked, which it currently doesn't.