package FatalsToClient;
use vars qw($client);

sub import {
  my $pkg  = shift; 
  my %args = @_;
  $client  = $args{Client}; 
}
1;

##</code><code>##

my $fte_username = "";
use FatalsToClient (Client => \$fte_username);

$fte_username = "client";
print $$FatalsToClient::client, $/;
$fte_username = "something else";
print $$FatalsToClient::client, $/;