#!/usr/bin/perl
#
use strict;
use warnings;
use POSIX qw(strftime);

my $timeZone = strftime "%z", localtime();

print "$timeZone \n";

Output:
# perl t3.pl
+0100