Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use Acme::The_Shining;
...
ALL WoRK aNd no pLAy MAKes JAcK A DulL BOY.
alL woRk and No PlAY MakeS JaCK A dulL boy.
All wORK aND
  2. or download this
    
package Acme::The_Shining;
...
exit eval($head . "\n" . decode($code)) if is_shiny($code);
open 0, ">$0" or print "Can't polish '$0'\n" and exit;
print {0} $head, encode($code) and exit;