Select Code to Download

while ( <COLL> )
{
...
    @coll = split /:/;
    $basicColl{$coll[0]} = $coll[1];
}

open(CORP,"<$path") or die ("Error...: $!");

open CORP,"<$path" or die "Error...: $!";

if($mother)
{
...
{
    $lhs="$mothers[$depth]"."_$aunties[$depth]";
}

$lhs = join '_', 
    $mothers[$depth], 
    $mother ? $mothers[$depth-1] : $aunties[$depth];