sub shutDown {    my $self = shift;    # zuerst das kommando zum herunterfahren abschicken    exec ('shutdown -r')   or print STDERR "couldn't exec foo: $!";    # dann das Programm beenden    sleep(2);    exit(0); } # /shutDown