my $day;
 my $month;
 my $date;
 my $time;
  my $hour;
  my $min;
  my $sec;
 my $year;

 ($day,$month,$date,$time,$year)=split(" ","Mon Jul 17 17:59:31 2000");
 ($hour,$min,$sec)=split(":",$time);