Shell Programming and Scripting

#!/usr/bin/perl -w
$memlst = "/tmp/test.txt";
$membercnt = `wc -l $memlst`;
$memhd = `head -1 $memlst`;
$memcnt1 = 1;
$class = "first";
open (MEMFRM, "cat $memlst |");
while ($member = <MEMFRM>)
{
if (($membercnt > 1) && ($memcnt1 = 1))
{
chomp $member;
print "create grp $member, class=$class; \n";
$memcnt1++;
}
else
{
print "new $member to grp $memhd;\n";
$memcnt1++;
}
}

create grp 0174, class=first;
new 0175 to group 0174;
new 0176 to group 0174;
new 0177 to group 0174;