#!/usr/bin/perl -w
use strict;
use Net::SMTP_auth;

my $smtp = Net::SMTP_auth->new('serveradresse.de') || die $!;
#print $smtp->auth_types();
$smtp->auth('LOGIN', 'webXYZp1', 'passwort') || die $!;

$smtp->mail($ENV{USER}) || die $!;
$smtp->to('irgendwer-im-netz@web.de');

$smtp->data();
$smtp->datasend("To: irgendwer-im-netz\@web.de\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend() || die $!;

$smtp->quit;