#!/usr/bin/perl
use strict;
use warnings;
use Proc::Background;
use Config;

my $secure_perl_path = $Config{perlpath};

if ($^O ne 'VMS')
 {$secure_perl_path .= $Config{_exe}
      unless $secure_perl_path =~ m/$Config{_exe}$/i };

my $command1 = "$secure_perl_path $ENV{'source'}/src/CreatePerson.pl";
my $command2 = "$secure_perl_path $ENV{'source'}/src/CreateCountry.pl";

foreach ( $command1, $command2 ) {
    my $proc = Proc::Background->new("$_ &");
    print $proc->pid(),"\n";
}