#!/usr/bin/perl

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use MIME::Lite;

my $cgi = new CGI;

print $cgi->header( -type=>'text/html');

#E-Mail versenden:
my $msg = MIME::Lite->new(
         From    => "user1\@myfirma.com",
         To      => "user1\@myfirma.com, user2\@myfirma.com, userX\@myfirma.com",
         Subject => "test",
         Type    => "multipart/related"
    );
$msg->attach(
        Type => "text/html",
        Data => "Content",
    );          
$msg->send("smtp", "mail.myfirma.de") or die ("Fehler beim senden $!");