> $ while (1)
> do
>    telnet yourmud.address.com port&
> done

$port = "4000";
$host =  "localhost";
$this = sockaddr_in($port,inet_aton($host));
for (0..30) {
  if (!fork()) {
    for (0..50) {
      my $sock;
      socket ($sock, AF_INET, SOCK_STREAM, getprotobyname('TCP'));
      connect($sock,$this);
    }
    sleep;
  }
}
sleep;

--Palrich

Reply via email to