}
}

# this sub represents a thread
sub worker {
    my $thread_num = $_[0];
    print "---I am thread $thread_num!\n";