$mw-> repeat (10000, sub {auto_speichern_zeit ();});
.
.
sub speichern_zeit{
        $mw-> after (10000000, sub {auto_speichern ();};
}

sub auto_speichern{
        #Öffnet den Dialog
}