#!/usr/bin/perl

package MyModule;

use Devel::Peek;

sub new {
    print "IN NEW\n";
    return bless {};
}

sub DESTROY {
    print "======= BEGIN DESTROY:".$$."========\n";
#    print Dump(@_);
    print "============ END DESTROY:".$$."========\n";
}

1;

package main;

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

##</code><code>##

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