cope with optional user prefix to groups list

[scpubgit/System-Introspector.git] / t / bin / groups

#!/usr/bin/env perl
use strictures 1;
my $user = shift @ARGV;
printf "$user : %s\n", join ' ', map { "${user}_group_${_}" } qw( A B C );