http://www.perlmonks.org?node_id=799383

aphexcoil has asked for the wisdom of the Perl Monks concerning the following question:

Perhaps someone far wiser than I can explain why this:
#!/usr/bin/perl use Thread; use Time::HiRes qw(usleep); while(usleep(100)) { my $thr1 = new Thread \&doNothing1; $thr1->join; } sub doNothing {}
... eats memory? I ran this and watched TOP and noticed that the memory perl was using kept increasing. I thought join cleaned up after a thread?