12 lines
284 B
Perl
12 lines
284 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
$procid = fork();
|
||
|
|
if ($procid == 0) {
|
||
|
|
# this is the child process
|
||
|
|
print ("this line is printed first\n");
|
||
|
|
exit(0);
|
||
|
|
} else {
|
||
|
|
# this is the parent process
|
||
|
|
waitpid ($procid, 0);
|
||
|
|
print ("this line is printed last\n");
|
||
|
|
}
|