for my $ip (@ARGV) {
print $ip . "\n";
}