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";}
}