Select Code to Download

sub hasSubs {
    my $dir = shift;
...
    closedir CURRENT;
    return $hasSubs;
}

my @subDirList=`dir /ad /b \"$dir\"`;
    if ($#subDirList >= 0) { $hasSubs=1; }
...
         chomp $subDirList[$counter];
         $hasSubs = 1;
        }