package SizerExampleFrame; use strict; use warnings; use Wx qw /:everything/; use Wx::Event qw/EVT_BUTTON/; use base 'Wx::Frame'; sub new { my $class = shift; my $self = $class->SUPER::new( undef, -1, 'SizerExampleFrame', [-1,-1], [600, 400], );