sub gui {
    require Tk;

    my $mw = Tk::MainWindow->new;
    
    ...

    Tk::MainLoop();
    exit( 0 );              ### Add this
}