This obfuscation was a good chance for me to become more familiar with the Date::Calc module.

(Update:  I should have made this more clear -- as my coworker discovered this morning -- you need to actually have Date::Calc installed, otherwise the program won't produce any output.)

The script takes either a single argument, in the form of a date (eg. "8/22/98" or "Aug-22-1998"), or two dates (earlier one first).

And the purpose of the program is ...

<Reveal this spoiler or all in this thread>

         s''us                  e`Date               ::Cal
            c`qw|               :all|;su        b`J{3
               0+31*            sin($   H*2/pop)}
                  sub`A         {Date   _to_D ays@_
                      [0..2     ]}sub`P{$         ARGV[
                          pop]} sub`H                 {($_=
                           P+pop)?A+D                    ecode
                       _Date    _US($_                      ):A+T
                   oday}        sub`_{"|".                    Date_
               to_Te            xt+Ad   d_Del                 ta_Da
           ys+(1                )x3,p       op}su             b`b{@
        _=(2+                   $A==$          J?"-"         :$")x
     61;$_                      [30]=             qw/h`    j`a`p
   /[$P%                        4];$_                  [J+23]
  ="P";                         $_[J+                  28]="E
  ";$_[                         J+33]            ="I";    warn"
  |".jo                         in(""       ,@_).           _($P+
  ++-++                         $H*0-  1).$/                 ;--$J
  &&&b}                         `$J=(                         P+2)|
   |48;$                    A=$J/2-1;                         $P=-$
     A+H+1             ;b`if    $H=$P                         -(H+0
        )';s*     [\s#]         **gx;                         s\`\$
           "\g                  ;eval

[download]
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

In reply to Cyclical Japh by liverpole

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.