23 lines
397 B
Perl
23 lines
397 B
Perl
#!/usr/bin/perl -w
|
|
|
|
$pid = fork();
|
|
|
|
if ($pid == 0) {
|
|
print "We're in the child process.";
|
|
|
|
exit(0); # Terminate child.
|
|
|
|
} elsif (! defined $pid) {
|
|
print "Not defined: means an error.";
|
|
} else {
|
|
print "Parent process.";
|
|
|
|
print "Do something...";
|
|
|
|
# Reap child.
|
|
$id = wait();
|
|
|
|
# Do something after child dies.
|
|
print "Child $id is dead.\n";
|
|
}
|