cope with optional user prefix to groups list
[scpubgit/System-Introspector.git] / t / bin / groups
CommitLineData
970fe8fe 1#!/usr/bin/env perl
2use strictures 1;
3my $user = shift @ARGV;
b728b795 4printf "$user : %s\n", join ' ', map { "${user}_group_${_}" } qw( A B C );