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

my $parent_pid=$$;
print "pid=$$\n";

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