...
my @flags : shared = (1) x 10;

my @threads = threads->new( \&worker, \$_ ) for @flags;

sleep 30;
print 'Telling kids its time to go';
@flags = (0) x 10;
...