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

##</code><code>##

C:\>perl -MWx -e"warn Wx::Bitmap->new(Wx::Image->new)"
Wx::Bitmap=SCALAR(0x22516c) at -e line 1.

C:\>

##</code><code>##

use Wx 0.25;