sub before_send { my ($request, $response) = @_; my $sms = ${$request}{qe}; $sms->{SMPPOPTION} = "0x1400:" . unpack("H*","Value"); return 0; }