sub SENDEMAIL {
        $absender = new Mail::Sender
        (
                {
                        [from => 'hcx@zz.net'],
                        [mail => 'mail.gmx@zz.net'],
                        [authpwd => 'geheim'],
                        [debug => $DEBUG],
                        [auth => 'LOGIN']
                }
        );

        $absender->MailMsg
        (
        {
                        [to =>'hcx@yyy.de'],
                        [subject => 'Wurzelverzeichnis'],
                        [msg => "#### Achtung die Root Partition ist zu mehr als 80% belegt!!!####"]
                }
        );

        print "mail wurde verschickt";


}