Select Code to Download

opendir(ODIR,"c:/") || die "Cannot open this directory: $!"; 

...
#        ...
    }
}

while (<c:/*>) { 
    if (-d) { print "$_ is a directory\n" } 
    else { print "$_ is a file\n"; } 
}