1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;

open (STDOUT,'>>','test_smtp_stdout.txt');
open (STDERR,'>>','test_smtp_stderr.txt');

if (
    my $smtp = Net::SMTP->new(
        'mail.gmx.net:587',
        Debug   => 1,
    )
) {
    print STDOUT "Domain: ".$smtp->domain."\n\n";
    $smtp->quit;
}
else { die "Fehler bei new(): '$@'"; }

Quote

Net::SMTP>>> Net::SMTP(3.11)
Net::SMTP>>> Net::Cmd(3.11)
Net::SMTP>>> Exporter(5.74)
Net::SMTP>>> IO::Socket::IP(0.39)
Net::SMTP>>> IO::Socket(1.42)
Net::SMTP>>> IO::Handle(1.42)
Net::SMTP=GLOB(0x26e3ca8)<<< 220 gmx.com (mrgmx104) Nemesis ESMTP Service ready
Net::SMTP=GLOB(0x26e3ca8)>>> EHLO localhost.localdomain

Net::SMTP=GLOB(0x26e3ca8)<<< 250-gmx.com Hello localhost.localdomain [w.x.y.z]
Net::SMTP=GLOB(0x26e3ca8)<<< 250-8BITMIME
Net::SMTP=GLOB(0x26e3ca8)<<< 250-AUTH LOGIN PLAIN
Net::SMTP=GLOB(0x26e3ca8)<<< 250-SIZE 69920427
Net::SMTP=GLOB(0x26e3ca8)<<< 250 STARTTLS
Net::SMTP=GLOB(0x26e3ca8)>>> QUIT

Net::SMTP=GLOB(0x26e3ca8)<<< 221 gmx.com Service closing transmission channel

Quote

Net::SMTP>>> Net::SMTP(3.11)
Net::SMTP>>> Net::Cmd(3.11)
Net::SMTP>>> Exporter(5.68)
Net::SMTP>>> IO::Socket::INET(1.33)
Net::SMTP>>> IO::Socket(1.34)
Net::SMTP>>> IO::Handle(1.33)
Net::SMTP=GLOB(0x27278e8)<<< 220-namedeshosters.net ESMTP Exim 4.93 #2 Mon, 20 Apr 2020 17:06:27 +0200
Net::SMTP=GLOB(0x27278e8)<<< 220-We do not authorize the use of this system to transport unsolicited,
Net::SMTP=GLOB(0x27278e8)<<< 220 and/or bulk e-mail.
Net::SMTP=GLOB(0x27278e8)>>> EHLO localhost.localdomain

Net::SMTP=GLOB(0x27278e8)<<< 250-namedeshosters.net Hello localhost.localdomain [a.b.c.d]
Net::SMTP=GLOB(0x27278e8)<<< 250-SIZE 104857600
Net::SMTP=GLOB(0x27278e8)<<< 250-8BITMIME
Net::SMTP=GLOB(0x27278e8)<<< 250-PIPELINING
Net::SMTP=GLOB(0x27278e8)<<< 250-AUTH PLAIN LOGIN
Net::SMTP=GLOB(0x27278e8)<<< 250-STARTTLS
Net::SMTP=GLOB(0x27278e8)<<< 250 HELP
Net::SMTP=GLOB(0x27278e8)>>> QUIT

Net::SMTP=GLOB(0x27278e8)<<< 221 namedeshosters.net closing connection