Select Code to Download

# To point out possible problems
use strict;
...
    print "$_\n" foreach grep /^\Q$host\E$/, @ip;
}
close $ip_host;