Select Code to Download

Select or download this

 
sub connection {
  # Make The Initial Server Connection! #
...
                             Timeout=>'30') || print "Error! $!\n";

while($answer = <$con>) {

Select or download this

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