foreach my $market (@HOSTLIST) { if( my $mypid = fork() ) { print("$market is pid $mypid\n"); } elsif( $mypid == 0 ) { new_session($market); } elsif( ! defined $mypid ) { die "Error: Couldn't fork: $!"; }