Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
use Net::Server::PreFork;
my $hardtodestroy = new MyModule;
Net::Server::PreFork->run(max_servers=>1, min_servers=>1, min_spare_se
+rvers=>0, max_spare_servers=>0);

Select or download this

2014/05/19-08:55:41 Server closing!
======= BEGIN DESTROY:9980========
...
============ END DESTROY:9980========
======= BEGIN DESTROY:9979========
============ END DESTROY:9979========