#!/usr/bin/perl -w
use strict;
use warnings;

package MyPackage;

use base qw(Net::Server::PreFork);

sub process_request {
    my $self = shift;
    print 'x' x 1024;
}

MyPackage->run( port => 7777 );