This is the first japh I dare to post here. It uses Tk (obviously :-)).
Nothing fancy, compared with the obfus from other monks.
Runs with strict and warnings.
Nice(?) feature: it produces an error with perltidy ;-)
$_=q^oPVQ{DKJQM@W{u@WI{mDFN@W^^q$%$x($^F.4);sub x{(split//=>$=>>$^F)[$
+|++]};$@=
qq;6I2R}CP9F\n;^q;{([<**>])};;y y^y y;use Tk;$;=q;X:>B;^q<([])>;$,=new
+$@;$b=q q
!;=6q^q<O>x+x;$,->$b(q>s*;&*(?,7?<2>^qq$^$x(&x+7),\$_)->$;;$,->repeat(
+$=/$^F.$[
=>sub{s{(.)(.*)};$2$1;});eval(q qYjddBtcbq^q<justperl>^q$~$x($^F<<$^F)
+);#mawe:)