#!/usr/bin/perl -w
use strict;
use DateTime::Duration;

my ($lh, $lm) = (localtime)[2,1];
my ($gh, $gm) = (gmtime)[2,1];

my $dur = DateTime::Duration->new( hours => ($lh-$gh), minutes => ($lm-$gm));
print sprintf "%+02.2d%02d\n", $dur->in_units('hours','minutes');