my $fee_identifier;
my $transaction_id;
my $pickup_location;
my $hold_mode;
my $hold_mode = '+';
my $no_block = 'N';
my $start_item;
my $end_item;
my $data = <$socket>;
say "READ: $data";
say "READ: " . ( defined $data ? $data : 'undef' );
return $data;
}
-