I got this to work on wxPerl with wxWidgets release gtk2-unicode-release-2.6 and WxPerl 0.27 with the following changes (line numbers are approximate depending on how you copy the source).
Line 35: remove "use Wx::Image" -- it's integrated now
Line 47: change to an image I have.
Line 54: change $bmp = $image->ConvertToBitmap(); to $bmp = Wx::Bitmap->new($image);
Line 144: remove use Win32; and use HTML::SimpleLinkExtor;
Line 168: remove $dir=Win32::GetShortPathName($dir);
Line 204: Same change as line 54 above.
Line 214: Remove $parent->Clear()
It runs without crashing, but the ScaleImage doesn't work yet.