foreach my$zeile (split("
", $message))
{
    $smtp->datasend("$zeile
");
}