Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
    print "DISCONNECT: ($peer_addr:$peer_port)\n";
} 
die "Cannot accept socket ($!)\n";
  2. or download this
    #!/usr/bin/perl

...
    }
}
close($socket);