Something

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