#!/usr/bin/perl -w
$:='un';use strict;$;               # always use strict and -w
=1;$~='ken';use Tk;$^='its';$=      # cool! He put POD in an obfu
=1+$;;$"=$=*$=*0113;$-=0661;$.=     # again! again!
MainWindow->new();$/=$.->Canvas     # You can't do that!
(-relief=>'s'.$:.$~,-bd=>$=,-width  # Say what?
=>$=*$",-height=>$=*$");$\='JAPH';  # It has a JAPH too!
$/->yviewScroll($-,$:.$^);sub _{    # mkay....
$/->createLine(@_)}$/->xviewScroll  # you are an odd one
($-,$:.$^);for$,($;..$"){;$%=$"-    # lots and
$,;_($,,$;,$;,$%);_($,,$;,$;,-$%);  # lots of
_(-$,,$;,$;,$%);_(-$,,$;,$;,-$%);_  # beautiful
($",$,,$%,$");_($",-$,,$%,-$");_(-  # punctuation
$",$,,-$%,$");_(-$",-$,,-$%,-$");}  # marks!
$/->pack;MainLoop;                  # Love it!