It's OK, Recieved help from perlboy at www.aussieforum.com & this is fix.......
# 1900 to the year to get the full 4 digit year. #
$stutime = time;
$stutime = $stutime + 59400;
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime($stutime))[0,1,2,3,4,5,6]...