Select Code to Download

open my $iplist_fh, '<', 'iplist.txt'
    or die "Can't read iplist.txt: $!\n";
...
    }
}
close $iplist_fh or die "Can't close??: $!\n";

my @ips_of_interest = qw( 127.0.0.1 10.0.1.51 );
foreach my $ip ( @ips_of_interest ) {
    print "IP is $ip\n";
    print "Text is $text_for{$ip}\n";
}