print "Enter an IP:  ";
chomp (my $ip=<STDIN>);