#!/usr/bin/perl -w

use strict;
use Carp;
use Net::SMTP::Server;
use Net::SMTP::Server::Client;

my $server = new Net::SMTP::Server('localhost', 2525) or croak;

while (my $conn = $server->accept()) {
  next if fork() == 0;
  $conn->timeout(30);
  my $client = new Net::SMTP::Server::Client($conn) or croak;
  $client->process or next;
}