my $pid = fork();

if (not defined $pid) {
    die "\nCannot fork!: $!\n";
} elsif ($pid == 0) {
    # child #
    exec ($child, $parameters);
} else {
    # parent #
    ??żż
}