#!/usr/bin/perl
use strict;

my $path = "~/bin";
my $port = 4000;
my $cmd;
my @datasources = qw(db1 db2 db3 db4);
foreach my $datasource (@datasources) {
    $cmd = "$path/prefork_server.pl $datasource $port";
    print "$cmd\n";
    system($cmd);
    $port++;
}