sub hereistheip {
    print "Enter a valid server IP\n -->";
    my $myip = <STDIN>;
    chomp $myip;
    return $myip;
};