#!/usr/bin/perl

use strict;
use warnings;

use lib 'T:\\'; # eigeneModule

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 Net::SMTP::Server;
use Net::SMTP::Server::Client;
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);    
}