Select Code to Download

 #!/usr/bin/perl -w
use strict;
use warnings;
...
#$client->flush();
}
close($server);

#!/usr/bin/perl -w
use IO::Socket;
...
chomp ($answer);
print $answer;
$answer=unpack("H*",$answer);