#! perl -slw
use strict;
use threads;
use Counter;

my $t1 = async{
    my $c1 = Counter->new( 100 );
   $c1->incCounter while $c1->getCounter < 10000;
   return $c1->getCounter;
};

my $t2 = async{
    my $c2 = Counter->new( 100 );
   $c2->incCounter while $c2->getCounter < 30000;
   return $c2->getCounter;
};

print $t1->join;
print $t2->join;

__END__
C:\test>junk54
10000
30000