#!/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;

        $smtp->command("AUTH", "LOGIN", MIME::Base64::encode_base64($username, ""));
        $smtp->response == Net::Cmd::CMD_MORE() or die "Invalid response";
        $smtp->command(MIME::Base64::encode_base64($password, ""));
        $smtp->response == Net::Cmd::CMD_OK() or die "Invalid response";