sub exitProgramm {
    my $self = shift;
    sleep(2);
    exit(0);
} # /exitProgramm