sub nice_date {   
		(my $date) = @_;   
		($sec, $min, $hr, $day, $month, $year, $day_Of_Week, $julianDate, $dst) = localtime($date); 
		$month+=1; $year+=1900;   
		($sec2, $min2, $hr2, $day2, $month2, $year2, $day_Of_Week2, $julianDate2, $dst2) = localtime();
		$month2+=1; $year2+=1900;
		if($julianDate2==$julianDate and $year==$year2) {   
			if($hr==$hr2) {print "a few moments ago";}   
			elsif(($hr2-$hr)==1) {print "an hour ago";}   
			elsif(($hr2-$hr)==2) {print "two hours ago}";}   
			elsif(($hr2-$hr)==3) {print "three hours ago";}   
			else {print "today";}   
		}
		elsif($julianDate2==($julianDate+1) and $year==$year2) {print "yesterday";} 
		elsif(($julianDate2-$julianDate)<=2 and $year==$year2) {print "two days ago";}
		elsif(($julianDate2-$julianDate)<=5 and $year==$year2) {print "this week";}   
		else {print "$month/$day/$year";}  
	}