hi monks,

#!/usr/bin/perl
use strict;

use Net::SMPP;
my $smpp = Net::SMPP->new_transmitter($host, port=>$port,system_id => 
+'username',password  => 'password',) or die;
my $resp_pdu = $smpp->submit_sm(destination_addr => '555010',short_mes
+sage    => 'http://example.com/L.php?n=555010')or die;
print "$resp_pdu";
[download]

this is the program that i had written i need to receive this one as service msg in my mobile it means not as a text msg. Thank in advance