Help for this page

Select Code to Download


  1. or download this
      use Time::Piece;
      my $time = Time::Piece->strptime("20050622", "%Y%m%d");
      my ($tyear, $tmon, $tday) = ($time->year, $time->mon, $time->mday)
    
  2. or download this
    $h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/."
    ."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";