#!perl
use strict;
use warnings;

use Net::SMPP;

my $host = '10.100.7.177';
my $port = 5001;
my $system_id = 'r123';
my $password = 'r_123';


my ($smpp, $resp_pdu) = Net::SMPP->new_transmitter(
    $host,
    system_id => $system_id,
    password  => $password,
	system_type => 'r123',
	port      => $port
) or die "Cant connect to SMSC: $!";
print "PDU_resp ERROR: ".$resp_pdu->explain_status()
 if $resp_pdu->status;

$smpp->enquire_link() or die "Unable to connect to SMSC";
$resp_pdu = $smpp->submit_sm(
    destination_addr => '9610985672',
    short_message    => 'Hello World. via SMPP'
) or die;
print "PDU_resp ERROR: " . $resp_pdu->explain_status() 
if $resp_pdu->status;
my $msg_id = $resp_pdu->{message_id};

print "\nEOF\n";
##sleep 30;
#$resp_pdu = $smpp->query_sm(message_id => $msg_id) or die;
#die "PDU_resp ERROR: ".$resp_pdu->explain_status() if $resp_pdu->status;
#print "\nMessage state is $resp_pdu->{message_state}\n";


##</code><code>##



D:\Perl>perl smpp1.pl
PDU_resp ERROR: Invalid source address (ESME_RINVSRCADR=0x0000000A)
EOF