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

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


print "SMS wurde verschickt";