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