Help for this page

Select Code to Download


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

...
  my $query = <$socket> // return [];               # read query
  print $socket "prefork $$ is answering: $query";  # reply
  }
  2. or download this
    #!/usr/bin/perl

...
  1 .. $forks;

print "total errors: $totalerrors  transactions: $transactions\n";
  3. or download this
    package Forking::Amazing;

...
There is no return value.

=cut
  4. or download this
    #!/usr/bin/perl

...
# select undef, undef, undef, 0.001;
  print $socket "prefork $$ is answering: $query";    # reply
  }