my $C = join ('', <Client>);

##</code><code>##

my $C = <Client>;