my $bmp = Wx::Bitmap->new($image);