Sidenote:

($day1,$month1,$year1,$hour1,$min1,$sec1) =  &getMeanTime;
[download]

Do not use the &subname; way of calling a subroutine unless you know what the difference is between that and subname(); and subname; Hint: &subname; will pass on anything in @_. If in doubt, use subname();