# The syntax of the getpgrp function is pgroup = getpgrp (pid); 

#!/usr/local/bin/perl 

$pgroup = getpgrp (0); 
print ("The process group for this program is $pgroup.\n");