Yet Another CPAN Grep

NetSDS-Message ( R/RA/RATTLER/NetSDS-Message-0.021.tar.gz, RATTLER, 2009; MetaCPAN )

NetSDS-Message/samples/simple.pl ( view source; MetaCPAN )

/usr/bin/env perl 
use 5.8.0;
use strict;
use warnings;

use lib '../lib';
use Data::Dumper;

use JSON;
use NetSDS::Const::Message;
use NetSDS::Message;
use NetSDS::Message::SMS;
use NetSDS::Util::Str

->ud( 'Z' x 140 );
warn conv_str_hex( $msg->message_body );

#print Dumper($msg->reply);

my $j = JSON->new();
$j->pretty(1);
$j->utf8(1);
#$j->allow_blessed(1);
#$j->convert_blessed(1);

print "Lengt