#!/usr/local/bin/perl

my($grp) = @ARGV;

if($grp eq '' ) {
    printf("Usage: lkupgrp <grpname>\n");
    exit(0);
}

my($gid) = (getgrnam($grp))[2];

if($gid eq '') {
    $gid = 'unknown';
}

printf("%s\n", $gid);
