Select Code to Download

package FatalsToClient;
use vars qw($client);
...
  $client  = $args{Client}; 
}
1;

my $fte_username = "";
use FatalsToClient (Client => \$fte_username);
...
print $$FatalsToClient::client, $/;
$fte_username = "something else";
print $$FatalsToClient::client, $/;