At 16.54 +0100 1999-01-08, Ronald J. Kimball wrote: >Try this instead: > > #!perl > use Time::Local; > $diff = (timelocal(localtime) - timelocal(gmtime)) / 36; > $diff = sprintf "%+0.4d", $diff; # add sign, leading zero(es) > print $diff; Works for me! And your solution is probably faster. /Cajo. ___Carl_Johan_Berglund_________________________ Adverb Information carl.johan.berglund@adverb.se http://www.adverb.se/ ***** Want to unsubscribe from this list? ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch