&fill_from_file();
#&fill_with_tie();
    
##############################################
### Ende sofort ausgefuehrte Subroutines 
##############################################

## Zeitsteuerung
$mw->after(1000, \&fill_from_file() );

MainLoop;