given ($selection) {
    when (wxID_YES()) {
        print qq[You pressed: "Yes"\n];
    }
    when (wxID_NO()) {
        print qq[You pressed: "No"\n];
    }
    when (wxID_CANCEL()) {
        print qq[You pressed: "Cancel"\n];
    }
}