lib/Add.pm
--------------
package Add;
### I tryed exporter here with no luck, maybe I did it wrong? ###

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($USERID);

sub Add_Acct
{
   print "Adding an Account";
   &ID;
   &LAST ;       
   &FIRST;       ##a prior dev did this sub calling, its crap I know ###
   &USERID;        ##This sub takes user input ##
   print "ID: $ID - UserID: $USERID \n";  ## All vars defined and as expected here ##
   Group::Groups();
   ....
   ...