Wx::LaunchDefaultBrowser($url);


internals:
 + nested menu prepare event

---  
 my @methods = reverse sort $text =~ m{^sub\s+(\w+)}gm;
--- 
 #!/usr/bin/perl -w

use strict;
use utf8;
use CGI;
use Encode qw(decode_utf8);

binmode STDOUT, ':encoding(UTF-8)';
binmode STDIN,  ':encoding(UTF-8)';

my $q = CGI->new;
$q->charset('UTF-8');
print $q->header();

print "";
print decode_utf8($q->param('name'))