# open my $grp, '>', $out or die "Can't write '$out': $!";
print $grp qq{<test:tester username ="$id" group-name="$grp1"/>\n};