Select Code to Download

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

#! perl
use v5.14.1;
...
        default            { print qq[Invalid selection\n]     }
    }
}

12:50 >perl 300_SoPW.pl
selection is 5104
wxID_YES is 5103
One