The foreach server code begins like this...

open (FILE, '<', 'hostfile') or die "Could not open 'hostfile' : $!";
my @SERVERS = <FILE>;
close FILE;
foreach $server (@SERVERS)
{
    #print OUTPUT "[$server]\n";
    chomp($server);
[download]