moritz: hilfe bei attachment-skript

Beitrag lesen

hi leute,
ich habe folgendes skript:

#!/usr/bin/perl

$recipient = 'mmueller@phornet.de';
$attachedFile = "daten.zip";

&mailIt;

print "Content-type: text/html\n\n";
print "<html><body>Vielen Dank für Ihre Mühe!</body></html> \n";

sub mailIt
{
use MIME::Lite;
$mailprog = '/usr/lib/sendmail';
$object = MIME::Lite->new(
   From        =>'SERVER',
    To          =>"$recipient",
   Subject     =>'aktuelle AKZ-Tabelle',
  Type        =>'application/x-tar',
   Encoding    =>'base64',
    Path        =>"$attachedFile");

open (MAIL, "$mailprog $recipient") die "Fehler beim Öffnen: $mailprog!\n";
$object->print (\*MAIL);
close MAIL;
}

welche mir eigentlich daten.zip als attachment schicken soll!
aber bei der zeile:
use MIME::Lite;
gibt es einen internal server error.
was kann ich tun?