DateTime is your date-and-time sidchrome tool set (or sledgehammer if you don't need to do anything else with date/times):

use DateTime;
my $now = DateTime->now( time_zone => 'local' );
print $now->time_zone->offset_for_local_datetime( $now );
[download]