Anhang mit Perl klappt nicht überall

[Jon]

Ja sorry

hab da noch etwas vergessen:

$MIMEservice = MIME::Lite->new(
From => $Email,
To =>$YourEmail, Subject =>$in{'mysubject'},
Type => 'text/plain', Encoding => 'quoted-printable',
Data => $TXT
);
if ($Nummer.tmp) {
$MIMEservice ->attach(
Type => 'application/octet-stream',Encoding => 'base64',Path => "$Nummer.tmp",
Filename =>$Anhangname,
);}

open (Postal, "|$MailProgram $YourEmail") || die "Can't open $mailprog!\n";
$MIMEservice ->print(\*Postal) or die $!;
close (Postal);

MFG Jon