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