Select Code to Download

ABORT:while(<$fh>){
        my $data = $_;
        my $params = fd_retrieve($fh);
        ...

  # Writing a message:
  my $message = {
...
  my $message = fd_retrieve($fh);
  my $params = $message->{'params'};
  my $data = $message->{'data'};