my $File = input.txt;
open(FILE, "$File");
@IPLIST = <FILE>;
close(FILE);

foreach my $test (@IPLIST) {
  print "Is $test an IP?\n";
}