&gt; Let me know if you find a good strategy.<br />&gt; <br /><br />Voodoo is a good word. <br /><br />This is far from perfect, there has to be a better way - but Im going to use this for now:<br /><br />So you ned to find a sweet spot where you dont get Perl &#39;Out of Memory!&#39; conditions. It was 11 for me.<br /><br />So I just keep running<br /><br />./memeater 11 &<br /><br />over and over until I get OOM kills. Now I just need to do some tuning.<br /><br />#!/usr/bin/perl<br /><br />use strict;<br />use warnings;<br />use threads;<br />#use Devel::Size qw(size);<br />my $mem;<br />my $iterations = $ARGV[0] || 5;<br />my $count = 0 ;<br /><br />while ($count &lt; $iterations)<br />{<br />   my $thr = threads-&gt;new(\&fillmeup);<br />   #my $size = size($thr);<br />   #print &quot;Size = $size \n&quot;;<br />   $count++;<br />}<br /><br />sleep 900;<br /><br />sub fillmeup<br />{<br /> my $buf = &#39;A&#39; x ( 1024*1024*256 );<br /> return 0;<br />}