Select Code to Download

our $references;

my @references;

...
#.. inside sub test() ..
#
    foreach my $object(@references){ ....}

#!/usr/bin/perl

...
   print "---Team: $t->{name} -----\n";
   print "  " . $_->name . "\n" for $t->GetUserList;
}