leak.pl

   1 #!/usr/bin/perl -w
   2 use POE::XS::Queue::Array;
   3 my $q = POE::XS::Queue::Array->new;
   4 # or
   5 #use POE::Queue::Array;
   6 #my $q = POE::Queue::Array->new;
   7
   8 print "inital: \n";
   9 system "ps -o rss -p $$";
  10 for (1..2000){
  11 my $id = $q->enqueue($_ % 4, "payload $_");
  12 $q->dequeue_next;
  13 }
  14 system "ps -o rss -p $$";
  15 for (1..2000){
  16 my $id = $q->enqueue($_ % 4, "payload $_");
  17 $q->dequeue_next;
  18 }
  19 system "ps -o rss -p $$";
  20