Select Code to Download

my @files = readdir (CURRENT);
closedir CURRENT;
...
    return 1 if (!/^\.\.?$/ and -d);
}
return 0;