FORK:
{
$child=fork;

if(defined($child))
{
  if($child = 0)
  {
    my $exec = "/usr/local/bin/monster -i$id $filePath$file &";
    qx/$exec/; 
  }
}
elsif ($! == EAGAIN) 
{
  sleep 5;
  redo FORK;
}
else 
{
  die "Can't fork: $!\n";
}

}

return 0;