RosettaCodeData/Task/Echo-server/Perl/echo-server-2.pl

package Echo;
use base 'Net::Server::Fork';
sub process_request {
    print while <STDIN>;
}
Echo->run(port => 12321, log_level => 3);