my $WinID=hex($mw->frame);
my $flash=new Win32::API('user32','FlashWindow',['N','N'],'N');
$mw->repeat(300,\&flashit);

sub flashit
{
 $flash->Call($WinID,1) if (defined $flash);
}