#!/usr/bin/perl -w

use strict;
use threads;

# Create main window
sub gui {
    require Tk;
    my $main = MainWindow->new;

# Add a Label and a Button to main window
    $main->Label(-text => 'Hello, world!')->pack;
    $main->Button(-text => 'Quit',
        -command => [ $main => 'destroy']
    )->pack;

# Spin the message loop
    Tk->MainLoop;
}

my $server_thread = threads->create("gui");

while (1) {
    sleep(1);
    print "cav\n";
}