sub Date_Comp
	{
     my %months= {Jan => 1,Feb => 2,Mar => 3,Apr => 4,May => 5,Jun => 6,Jul => 7,Aug => 8,Sep => 9,Oct => 10,Nov => 11,Dec => 12};
	 my($date1, $date2)= @_;
	 my @dates1= split (" ",$date1);
 	 my @dates2= split (" ",$date2);
	 my @times1= split (":",$dates1[3]);
 	 my @times2= split (":",$dates2[3]);

	 my $days1= $dates1[4]*365 + $months{$dates1[1]}*30 + $dates1[2];print "\ndays1= $days1";
	 my $days2= $dates2[4]*365 + $months{$dates2[1]}*30 + $dates2[2];print "\ndays2= $days2";
	 my $time1= $times1[0]*60*60 + $times1[1]*60 + $times1[2]; print "\ntimes1= $time1";
	 my $time2= $times2[0]*60*60 + $times2[1]*60 + $times2[2]; print "\ntimes2= $time2";
	 
	if ($days1 > $days2)
		{ print "\n $date1 is latest \n";	return 1	}
    elsif ($days1 < $days2)
		{ print "\n $date2 is latest \n";	return -1	}
    elsif ($days1 == $days2)
		{ 
		if ($time1>$time2)
			{print "\n $date1 is latest \n"; return 1	}
		elsif($time1<$time2)
			{print "\n $date2 is older \n";	return -1}
		elsif($time1 == $time2)
			{print "\n Both are same \n"; return 0	}
		}
	}