use MIME::Lite;
$user = 'blümchen';
$pass = 'blümchen';
$msg = MIME::Lite->new(
From => 'sender@yahoo.de',
To => 'empfaenger@yahoo.de',
Subject => 'Test-Mail',
Type => 'multipart/mixed'
);
$msg->attach(
Type => 'text/html',
Data => qq{
Text Text Text
},
);
$msg->send('smtp','smtp.googlemail.com', Port => 465, AuthUser=> $user, AuthPass=> $pass, Timeout => 90, Debug => 1);