Yup, it is just another japh. Didn't really come out the way I wanted it to when I started out, but here goes anyway. :)

#!/usr/bin/perl -w
use strict;

# And JUSTice for all

my $Just => my @Just =(
j=>
UnJuSt=>
S=>
T=>
jUsT=>JusT=>
Just=>Just=>Just=>
);sub

        just{pop@
       Just}sub
      jUst{pop=>
     just}sub 
    juSt{pop=>
   jUst}sub 
  jusT{pop=>
 juSt}pop@
Just

unless        $Just=@Just-sqrt@Just;for(@Just=>@Just)
{     #     y=Just
           s=jUsT=.
==>       s=JuSt=(chr $\=/12+
       ord just\=>).(chr $\=/6
     +ord just\=>).(chr $\=/2+ord
         Just\=>)
  =e=>s=JusT=pack i\=>1801672040=e=>
     y=jUST= alp==>
    s=JUST| |===>
   s=Just=qq
<  $Just[--$Just]er$Just[--$Just]>=e=>
}

print Just.jUst.juSt.jusT;
[download]

Enjoy. :)

---

You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.