use strict;
use warnings;
use IPC::DirQueue;

my $DirQueueOpts = {  dir => 'DirQueueTest', 
                      active_file_lifetime => (60*60*24) };

my $TestNum = 0;

while($TestNum < 100000) 
{  
    print "QueuePid=$$, TestNum=$TestNum\n";
    my $dq = IPC::DirQueue->new($DirQueueOpts);

    my $QNXBuildMetaData = { TestNumber       => $TestNum, 
                              QueuePid        => $$};
  
    $dq->enqueue_string("QueuePid=$$, TestNum=$TestNum", $QNXBuildMetaData);  
    $TestNum = $TestNum+1;   
}