# Pseudo code
while (1) {
     # GUI aufbauen
     $mw->Button(-text => "Quit", -command => sub { $mw->destroy })->pack;
     MainLoop;
}