my $video_panel=Wx::Panel->new($i_main_menu, wxID_ANY, wxDefaultPosition, [800,600],);

(... lots of code goes here and the full executable version is here: