NetServer::Generic 这个包的问题

CODE:

my ($sub_chat) = sub {
        my $sock = shift;
        while()
        {
                sleep(3);
                print "1\n";
        }
};

my ($foo) = new NetServer::Generic;
$foo->port(9000);
$foo->hostname("192.168.1.100");
$foo->start_servers('20');
$foo->max_servers('500');
$foo->min_spare_servers('2');
$foo->server_lifespan(1);
$foo->callback($sub_chat);
$foo->mode("prefork");
$foo->run();