Just another little Perl script... :-)

Requirements

Perl 5.4 or above.

wApua 0.06 and lower work with Perl 5.4 or above. wbmp2xbm 0.06 works with Perl 5.6 and above. Future wApua versions will only work with Perl 5.6 and above.

Perl 5.3 does not work. The access logs to the wApua WML home page show that at least Perl 5.4.4 works. I recommend at least 5.6.

libwww-perl (aka lwp) and HTML::Parser

libwww-perl 5.47 is fine (that means I tested it) and according to the access logs of the wApua WML home page version 5.33 also works. Earlier versions of libwww-perl may work too, but versions earlier than 5.22 shouldn't work at all, because of wApua needs HTML::TokeParser (version 3.06 and later are fine), which appeared first in the HTML::Parser package version 2.20, so no HTML::Parser version earlier than 2.20 will work. Since wApua 0.05dev at least HTML::Parser version 2.99_06 is necessary, because of earlier versions lacking XML support. (Although I found accesses from some wApua claiming to run with LWP 5.10, strange... :-)

perl/Tk 80x

At least pTk 800.019 works fine here, the access logs to the wApua WML home page show that at least pTk 800.012 works, too. pTk 400 won't work at all.

$-=42;$_=qq 93233313242132627322017304228173024422013152317309;while(!!$_){$:=
$|++;s$[1-4][0-8]$$e;$==$&;$\=pack c,$;=$|.$:;$=+=$=!=$-?$-:-$=-$;;$,=$=+$-;$@
.=pack c,$!!=$--$;?!!$!!=$:?$=+$-:$,-$-:$,^$|<<chr$;+$|+$-;$!=$,;$|=$:}print$@