...
$message = MIME::Lite->new(
          From => 'meinskript.pl',
          To => "$empfaenger",
          Subject => 'Anhaenge!',
          Type => 'MIME-Type',
          Path => "$datei"
);

if($#ARGV>1)
{
        for my $d (@dateien)
        {
                $message->attach(
                Type => 'MIME-Type',
                Path => "$d"
                );
        }
}
$message->send() or die "sendmail konnte nicht ausgefuehrt werden!\n";