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 ...

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