Select Code to Download

#!perl
use Data::Dump qw[ pp ];
...
    return 1;
}

C:\test>\perl32\bin\perl 1013733.pl
bless({ "-handle" => 3213678, "-id" => 1, "-interval" => 10000, "-name
+" => "Timer1" }, "Win32::GUI::Timer")
...
  "Timer1",
]
Timer fired