Select Code to Download

#!/usr/bin/perl -w
#-----
...
  {
   if (connectipc($server, $password, $username, $null))
   {

    print "null session to $server successful.\n";
    @users = getusers($server);
...
 }
 return @users;
}