sub get_date { @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Dec); ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime(); $year = 1900 + $yearOffset; $theTime = "[$hour:$minute:$second, $months[$month] $dayOfMonth, $year]"; return $theTime . "\n"; }