[wxperl-users] wxPerl T-shirt...maybe an obfu?

[Jouke V. <jo...@pv...>]

Would a wxPerl specific Obfuscation be an idea for a t-shirt?


use Wx;sub
qq{open$Wx=>$0;scalar<$Wx>=~m$;$;Wx::MessageBox($1=>$`)
&&exit}@p::ISA=Wx::App,*p::OnInit=*qq;p->new->MainLoop;

If you put this obfu in a file, remove any leading whitespace or 
newlines and leave the linebreaks as they are, it all should work.

Jouke