my($day,$month,$year) = (localtime)[3,4,5];
      $month = $month + 1;
      $year = $year + 1900;
      my $date = "$month\/$day\/$year";