#!/usr/bin/perl -w

use strict;<br>

use MCE;
use DBD::Oracle;
use DBI;

sub mySub {
    my $db;
    $db=DBI->connect("dbi:Oracle:<SERVER_NAME>", "<USERID>", "<PASSWORD>") || die($DBI::errstr . "\n");
    $db->disconnect;

    return;
}

my (@array, $mceObj, $db);

$db=DBI->connect("dbi:Oracle:<SERVER_NAME>", "<USERID>", "<PASSWORD>") || die($DBI::errstr . "\n");<br>
...do some work with the database in order to fill up the @array variable...

$db->disconnect;<br>

$mceObj = MCE->new(max_workers => 4,
                   input_data => \@array,
                   user_func => \&mySub);
$mceObj->run;