#!/usr/bin/perl

use strict;
use warnings;
use threads;
use tztime;
use Thread::Semaphore;

my $sem  = Thread::Semaphore->new;

my ($tr) = threads->create(\&thr_proc);
my ($tr2) = threads->create(\&thr_proc);

$tr->join;
$tr2->join;

$ENV{TZ}="Europe/Paris";
my $t=localtime();
print "main (Europe/Paris): ",$t,"\n";

$ENV{TZ}="Europe/Moscow";
$t=localtime();
print "main (Europe/Moscow): ",$t,"\n";

sub thr_proc {

    $sem->down();
    my @tms = tztime::tz_gettime(time,"Europe/Paris");
    $sem->up();
    $tms[5] += 1900;
    $tms[4] ++;
    $tms[$_] =~ s/^(.)$/0$1/ for (0..2) ;
    print "in thread (Europe/Paris): $tms[5]-$tms[4]-$tms[3] $tms[2]:$tms[1]:$tms[0]\n";

    $sem->down();
    @tms = tztime::tz_gettime(time,"Europe/Moscow");
    $sem->up();
    $tms[5] += 1900;
    $tms[4] ++;
    $tms[$_] =~ s/^(.)$/0$1/ for (0..2) ;
    print "in thread (Europe/Moscow): $tms[5]-$tms[4]-$tms[2] $tms[2]:$tms[1]:$tms[0]\n";

    
}