Category: Time
Author/Contact Info Keef
Description: This will display your current GMT Offset. For example, you have a script that displays the local time everywhere but you would like it to have GMT -0500 after the time. Well, when you enter or leave DST, you have to change all your hard links. Here is a small 2-line script that will produce your current offset in a pretty form. I believe Time::Timezone is included in the deafult lib, if not, Time::Timezone;;
use Time::Timezone;
my $offset = (sprintf "%0#3d", (tz_local_offset() / 3600)) . "00";