&window(); # Mit Standardeinstellung starten.

&window( { configure_title => 'Neuer Titel' }); # bereits gestartetes Toplevel updaten

sub window {
   if(!defined($_[0]->{configure_title})) {
         my $new_toplevel->Toplevel(-title => "Alter Titel");
   } else {
         $new_toplebel->configure(-title => $_[0]->{configure_title}
   }
}