my $addr;

while (! $addr){
    print "enter a damned FQDN: ";
    my $input = <STDIN>;
    chomp $input;

    $addr = inet_aton($input);
}

my $ip = inet_ntoa($addr);