sub SENDEMAIL {
        $absender = new Mail::Sender
        (
                {
                        from => 'hackbox@gmx.net',
                        mail => 'mail.gmx.net',
                        authid => 'hackbox@gmx.net',
                        authpwd => 'cr-pup40.zip',
                        debug => $DEBUG,
                        auth => 'LOGIN'
                }
        );

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

        print "mail wurde verschickt";