sub decision
{

&ini_sm;
$ssm->geometry('=+400+200');
$ssm->title("Nutzerentscheidung notwendig");

# Anfang Inhalte des Fensters
my $text_codes = $ssm->Label ( -text=>"Wie soll mit folgender Datei verfahren werden?" , -anchor=>'w', -justify=>'left'
                              )
  ->grid(
   -row        => 0,
   -sticky     => 'nw',
   -column     => 0,
   -columnspan => 99);
...