Select Code to Download

sub write_binary {
  my $fh = shift;
...
  chomp;
  return pack("H*", $line);
}

my $server = ...;

...
...
$msg = $server->receive_message();
...