#!/usr/bin/perl -w

my $client = "Yes";

my $want = "client";
print *{$want},"\n";