The relevant snipit: 
my $offset  = sprintf "%.1f", (timegm(localtime) - time) / 3600; 
my $minutes = sprintf "%02d", ( $offset - int($offset) ) * 60; 
$TZ  = sprintf("%+03d", int($offset)) . $minutes;