Help for this page
push(@dir, $_) if (-d "./desktop/$_");
@dir = grep { -d "./desktop/$_" } readdir(TEXTFILES);