sub gettime { my ($sec,$min,$hr,$day,$mon,$yr,$dayOfWeek) = localtime(); # Adjust the values to the values humans expect: $yr+=1900; $mon++; return "$weekDays[$dayOfWeek] $mon/$day/$yr $hr:$min:$sec"; }