Select Code to Download

my @IPs = <DATA>;

...
___DATA___
1.2.3.4
1.2.3.5

INPUTLINE: foreach my $line (<<>>) {
    chomp $line;
...
        }
    }
}