#!/usr/bin/perl

use LWP::Simple;
use DateTime;
use DateTime::TimeZone;

etc etc...


sub TimeZone () {
(my $year_tz, my $month_init, my $hour_init, my $zone) = @_;


$offset_days = 0;
$offset = 0;
my $minutes_init = 0;
my $seconds_init = 0;

my $tz = DateTime::TimeZone->new( name => $zone );
  my $dt = DateTime->new(
      year       => $year_tz,
      month      => $month_init,
      day        => $day_init,
      hour       => $hour_init,
      minute     => $minutes_init,
      second     => $seconds_init,
      nanosecond => 0,
  );
$offset = $tz->offset_for_datetime($dt);
$offset_days = $offset / 86400;
return $offset_days;
}