#!/usr/bin/perl
use strict;
use warnings;


print "pid=$$\n";

my $child= fork();
die "Can't fork: $!" unless defined $child;
if ($child > 0) { #parent process
	print "Parent process:Pid=$$,parentid=$child\n";
}
else { # child process
	my $ppid = getppid(); # 14 line
	print "Child process: PID=$$,parent=$ppid\n";
}



__OUTPUT__
pid=1588
The getppid function is unimplemented at fork_test.pl line 14.
The getppid function is unimplemented at fork_test.pl line 14.