#!/usr/bin/perl

use strict;
use warnings;
use Net::SMTP;

STDOUT->autoflush(1);

while (1) {
    print ".";
    my $s = Net::SMTP->new( 'localhost', Port => 25, Hello => 'localhost' );
    defined $s || die $@;
}
