#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

use Data::Dumper (qw(Dumper));
local $Data::Dumper::Purity   = 1;
local $Data::Dumper::Useqq    = 1;
local $Data::Dumper::Sortkeys = sub {
    my ($hash) = @_;
    return [ ( sort { lc $a cmp lc $b } keys %$hash ) ];
};

use lib '.';
use Net::SMTP::Server;
use Net::SMTP::Server::Client;

$Net::SMTP::Server::Client::DEBUG = 1;

my $server = new Net::SMTP::Server( '127.0.0.1', 25 );

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