sub getLocalTime { my @timeData = localtime(time); @timeData[5] += 1900; @timeData[4] += 1; return \@timeData;