my $a = getpgrp(0);
$a = getpgrp(1234)
