-

fork returns the child's process ID : fork System Functions Perl

     

#!/usr/bin/perl
use warnings;
use strict;
my $f = fork; # Program splits in two here
if (defined $f) {
    if ($f == 0) {
        print "This is the child processn";
        exit;
    } else {
        print "This is the parent processn";
        exit;
    }
} else {
    print "Your system doesn't support fork!n";
}