my $yes = wxID_YES;
when ($yes)   {....}