perhaps this is a bit makeshift, but have you considered altering the return from time() to add/deduct the correct number of hours and then apply localtime()?
i am not sure, but i think pacific and east euro are 10 hours apart, so that should be
localtime(time() - 10 * 60 * 60);
actually changing the time zone is very platform specific, and you probably want to ask your sysop instead of the people here.
Perhaps the Time::Local module (standard distribution) will also be of some use to you.
-nuffin
zz zZ Z Z #!perl