#!/usr/bin/perl
use strict;

my $pid = $ARGV[0] or die "usage: $0 pid\n";
my $group = getpgrp $pid;

print "$pid\'s group is $group\n";
if($group >= 0) {
        print "$pid is active\n";
} else {
        print "$pid doesn't exist\n";
}