#!perl
use Data::Dump qw[ pp ];
use threads;
use Win32::GUI qw( WM_CLOSE WM_TIMER );

#$CHILD = threads->create('child', '');

$WinMain = Win32::GUI::Window->new(
    -name => 'Main',
    -text => 'Task Test',
    -width => 300,
    -height => 200,
    -onTerminate => \&Main_Terminate,
    -onTimer => \&DoTimer,
);

my $timer1 = $WinMain->AddTimer( 'Timer1', 10000 );
pp $timer1;
my $timer2 = $WinMain->AddTimer( 'Timer2', 20000 );
pp $timer2;

$WinMain->Show();
Win32::GUI::Dialog();
$CHILD->detach();

sub Main_Terminate { -1; }

sub child {
    while( sleep 1 ) {
        Win32::GUI::PostMessage( $WinMain, WM_TIMER, 1, 'Timer1' );
    }
}

sub DoTimer {
    pp \@_;
    print "Timer fired\n";
    return 1;
}


##</code><code>##

C:\test>\perl32\bin\perl 1013733.pl
bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name" => "Timer1" }, "Win32::GUI::Timer")
bless({ "-handle" => 3213678, "-id" => 2, "-interval" => 20000, "-name" => "Timer2" }, "Win32::GUI::Timer")
[
  bless({
    # tied Win32::GUI::Window
    "-accel"  => 0,
    "-handle" => 3213678,
    "-name"   => "Main",
    "-timers" => { 1 => "Timer1", 2 => "Timer2" },
    "-type"   => 0,
    Timer1    => bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name" => "Timer1" }, "Win32::GUI::Timer"),
    Timer2    => bless({ "-handle" => 3213678, "-id" => 2, "-interval" => 20000, "-name" => "Timer2" }, "Win32::GUI::Timer"),
  }, "Win32::GUI::Window"),
  "Timer1",
]
Timer fired
[
  bless({
    # tied Win32::GUI::Window
    "-accel"  => 0,
    "-handle" => 3213678,
    "-name"   => "Main",
    "-timers" => { 1 => "Timer1", 2 => "Timer2" },
    "-type"   => 0,
    Timer1    => bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name" => "Timer1" }, "Win32::GUI::Timer"),
    Timer2    => bless({ "-handle" => 3213678, "-id" => 2, "-interval" => 20000, "-name" => "Timer2" }, "Win32::GUI::Timer"),
  }, "Win32::GUI::Window"),
  "Timer2",
]
Timer fired
[
  bless({
    # tied Win32::GUI::Window
    "-accel"  => 0,
    "-handle" => 3213678,
    "-name"   => "Main",
    "-timers" => { 1 => "Timer1", 2 => "Timer2" },
    "-type"   => 0,
    Timer1    => bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name" => "Timer1" }, "Win32::GUI::Timer"),
    Timer2    => bless({ "-handle" => 3213678, "-id" => 2, "-interval" => 20000, "-name" => "Timer2" }, "Win32::GUI::Timer"),
  }, "Win32::GUI::Window"),
  "Timer1",
]
Timer fired