#!/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_message    => 'http://example.com/L.php?n=555010')or die;
print "$resp_pdu";