sub connection {
  # Make The Initial Server Connection! #
  $con = IO::Socket::INET->new(PeerAddr=>"$server",
                             PeerPort=>"$port",
                             Proto=>'tcp',
                             Timeout=>'30') || print "Error! $!\n";

while($answer = <$con>) {