lib/Group.pm
-------------------
package Group;
sub Groups
{
   print "ID: $ID - USERID: $USERID \n";
   ### $ID is ok but $USERID is undefined ##
   .... 
   .....
}