Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
use base 'HTTP::Server::Simple::CGI';

sub net_server { 'Net::Server::PreFork' }
  2. or download this
    2011/04/26-15:03:18 Server::NetServer0 (type Net::Server::PreFork) sta
+rting! pid(6116)
Using default listen value of 128
Binding to SSLEAY port 12345 on host *
SSLeay missing SSL_key_file.
  3. or download this
    use strict;
use warnings;
...
}

sub Net::Server::TiedHandle::BINMODE { } #my $s = shift; $s->[1] ? $s-
+>[1]->($s->[0], 'binmode', @_) : $s->[0]->binmode(@_) }