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