# this is just example script
use strict;
use warnings;
use Parallel::ForkManager;
use DBI;

my @links=(1..1000);
my $pm=new Parallel::ForkManager(5);

foreach my $x (0..$#links) {
	$pm->start and next;
        my $dbh = DBI->connect("DBI:mysql:database=customers;host=localhost;port=3306", "root", "")
		or die "Can't connect: ", $DBI::errstr; 
  	$dbh->{RaiseError} = 1;
	print "$links[$x]\n";
      # do something (read, update, insert from db)
  	$dbh->disconnect;
	$pm->finish;
}