use strict;
use threads;
use threads::shared;

my $time : shared;

sub listener {
    my $array_ref = shift;
    while (1) {
		{
			lock $time;
			print "\tThread time: [$time]\n";
		}
        {
            lock($array_ref);
            print "\tThread time: [@$array_ref]\n";
        }
        sleep 3;
    }
}

my @array : shared;

my $t = threads->new( \&listener, \@array );

while (1) {
    { lock $time; $time = localtime; }
    print $time,"\n";
    { lock @array; push @array, $time; }
    sleep 1;
}

__END__
[16:09:17.53] P:\test>429405
Wed Feb  9 16:09:31 2005
        Thread time: [Wed Feb  9 16:09:31 2005]
        Thread time: []
Wed Feb  9 16:09:32 2005
Wed Feb  9 16:09:33 2005
        Thread time: [Wed Feb  9 16:09:33 2005]
        Thread time: [Wed Feb  9 16:09:31 2005 Wed Feb  9 16:09:32 2005 Wed Feb  9 16:09:33 2005]
Wed Feb  9 16:09:34 2005
Wed Feb  9 16:09:35 2005
Wed Feb  9 16:09:36 2005
Terminating on signal SIGINT(2)