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>) {

##</code><code>##

$dcc = IO::Socket::INET->new(PeerAddr=>"$2",
                               PeerPort=>"$3",
                               Proto=>'tcp',
                               Timeout=>'30') || print "Error! $!\n";
  print $dcc "Connection Established!\n";
  while ($talk = <$dcc>) {