my($day, $month, $year)=(localtime)[3,4,5];	
		$year = $year + 1900;