#!/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(): '$@'"; }