my $pid = fork;
if (!$pid) {
    # execute background code
    exit;
}
else {
    # execute concurrent foreground code
    waitpid $pid, 0;
}
# execute non-concurrent foreground code