#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
require Data::Dumper; Data::Dumper->import(qw(Dumper));
local $Data::Dumper::Purity;
$Data::Dumper::Purity = 1;
local $Data::Dumper::Useqq;
$Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys;
$Data::Dumper::Sortkeys = sub {
	my ($hash) = @_;
	return [(sort {lc $a cmp lc $b} keys %$hash)];
};
use 5.010;

require Net::SMTP::Server;
require Net::SMTP::Server::Client;
my $server = new Net::SMTP::Server('localhost',25);
while(my $conn = $server->accept()) {
	my $client = new Net::SMTP::Server::Client($conn) or die("Unable to handle client connection: $!\n");
	$client->process || next;
	say Dumper($client);
	say Dumper($conn);
}