my $but_use_ziel =$ssm_b->Button    (-text => $html{22} . " nach " .$html{20},
                          -command =>
        sub{
             ...
             &doitnow;
             &end_sm;
        }