#!/usr/bin/perl -w
#ipcprocesses.pl
use strict;
use lib qw (/somepath);

use ipcprocesses;

my $fork = ipcprocesses->new();

while ( 1 )
     {
      $fork->DO_MaintainPopulation();
     }