@$self{qw(sec min hour mday mon year wday yday isdst)} = localtime();