#!/usr/bin/perl

use POSIX;

while(1) {
	sleep(1);
	print "I am running\n";
	my $pid = fork;
	print "Process group Id:",getpgrp $pid,"\n";
	unless($pid)
	{
		while(1) {  
			sleep(2);
			print "Process group Id in child:",getpgrp getpid(),"\n";
			print "I am child and I'am running\n"; 
		}
	}
}