The initServer subroutine's while loop has no exit; your main program never gets past the $server->initServer(); line. You'll need to make Server
in reply to Re^2: tk mainwindow not appearing
in thread tk mainwindow not appearing
and Client fork a child process to run thosethat endless loop, or look into IPC::Run, Thread::Queue, or the many links above in the AnonyMonk reply.