#! perl -slw
use strict;
use threads;
use Win32::GUI qw();
use LWP::UserAgent;

sub t {
    my $rss;
    my $ua = LWP::UserAgent->new;
    my $response = $ua->get(
        'http://www.mektek.net/mekmatch/listServersRss.mkz'
    );

    $rss = $response->decoded_content
        if $response->is_success;

    print "done1";
    return $rss;
}

my $window = Win32::GUI::DialogBox->new(
    -title => "Test", -name => "Test", -onTimer => sub { return poll() }
);

my $use_up_some_memory = join( "", "x" x (1024 * 1024 * 20) );

$window->AddTimer( "T1", 5000 );
$window->Show;

Win32::GUI::Dialog();

sub poll
{
    print "polling ... ";

    my $thread = threads->create( \&t );

    while ( $thread->is_running ) {
        Win32::Sleep 10;
        Win32::GUI::DoEvents;
    }
    print " done2";
    return $thread->join;
}