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

C:\>