use switch;
switch ($selection) {
			case wxID_YES	  {$self->Wx::LogStatus ("You pressed:  \"Yes\" ")}
			case wxID_NO	  {$self->Wx::LogStatus ("You pressed:  \"No\" ")}
			case wxID_CANCEL  {$self->Wx::LogStatus ("You pressed:  \"Cancel\" ")}			
	}

##</code><code>##

given ($selection) {
			when (wxID_YES)	  {$self->Wx::LogStatus ("You pressed:  \"Yes\" ")}
			when (wxID_NO)	  {$self->Wx::LogStatus ("You pressed:  \"No\" ")}
			when (wxID_CANCEL)  {$self->Wx::LogStatus ("You pressed:  \"Cancel\" ")}			
	}

##</code><code>##

given ($selection) {
			when ($_ == wxID_YES)	  {$self->Wx::LogStatus ("You pressed:  \"Yes\" ")}
			when ($_ == wxID_NO)	  {$self->Wx::LogStatus ("You pressed:  \"No\" ")}
			when ($_ == wxID_CANCEL)  {$self->Wx::LogStatus ("You pressed:  \"Cancel\" ")}			
	}

##</code><code>##

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