#!/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 process\n";
        exit;
    } else {
        print "This is the parent process\n";
        exit;
    }
} else {
    print "Your system doesn't support fork!\n";
}