foreach my $linkarray ( @links ) 
{
   
   print '.';  # show user that something is happening.
[download]

I like the status dots, but you need to disable buffering on STDOUT so the user will see each one as it's printed.

Set the $| var to a nonzero value before the loop to fix this.

--sacked