You can do a couple of things here:
- Use the time function, which will give you a UTC time in seconds since 1970, based on GMT (0 offset).
- Add/subtract x*3600 from that time, with x being the number of hours that your time zone is offset from GMT (note that this can get tricky with daylight savings).
- Feed this number into gmtime (instead of localtime), to get your 8-element date/time list which you feed into POSIX::strftime.
Or, you can check out some of the more full-featured modules on CPAN, such as Date::Manip, TimeDate, and Time-modules.
I would opt for the latter approach.
MeowChow
s aamecha.s a..a\u$&owag.print