Select Code to Download

my ($dir, $file);
while( readdir DIR ){
...
$cwd .= "/" . ($dir || $file || '.');
$cwd =~ s#/#\\#g;
warn $cwd;

my @listing = sort { -d $b <=> -d $a || $a cmp $b } grep { ! /^\.\.?$/
+ } readdir DIR;
$cwd .= "/" . ($listing[0] || '.');
$cwd =~ s#/#\\#g;