print "Enter IP address to locate: ";
$address = <STDIN>;
$address =~ s/^\s*//;
$address =~ s/\s*$//;