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

$| = 1;

my $server = new Net::SMTP::Server('localhost', 25) or
   die("Unable to handle client connection: $!\n");

while(my $conn = $server->accept())
  {
	my $client = new Net::SMTP::Server::Client($conn) or
	   die("Unable to handle client connection: $!\n");
	$client->process() || next;
	print $client->{FROM}, "\n";
	print $client->{TO}, "\n";
	print $client->{MSG}, "\n";
  }