my $user = `whoami`; chomp $user; my $groups = `groups $user`; chomp $groups; print "
I am running as $user in groups $groups\n";