# constants
my $workers = 1; #number of simultaneous workers
workerPool();

sub list_threads {
    my @threads = threads->list;
    print "--threads i know of: -----\n";
    for my $t (@threads) {
        print $t->tid."\n";
    }
    print "--------------------------";
}

# sub which maintains a set number of simultaneous threads
sub workerPool {
    print "Starting workerPool...\n";

    my $count = 0;
    my @running_threads = ();
    while (1) {
        @running_threads = threads->list;
        if (scalar(@running_threads) < $workers) {