Select Code to Download

$num_domains = scalar @domains;

...
    $num_domains = scalar @domains; # get the size of array

}

for ( 0 .. $#@domains ) {
    # do stuff
...
    # blah
    push @domains, @new_domains;
}

my $root = 'd:/perl/';
my ( @dirs, @fails, @files);
...
    }
}
print "$_\n" for @dirs;