Select Code to Download

open my $infile, "<", "test.txt" or die "cannot open input: $!";
my @infile1= <$infile>;
...
    ($ip) = split /,/, $dns1;
    print "$ip";}
}

 
host1    dns:192.168.243.30,asdf
host2    dns:192.168.243.1,qwert