#!/usr/bin/perl

use strict;
use warnings;

use Net::SMPP;

my $smpp = Net::SMPP->new_transmitter('localhost',
	port      => 13002,
	system_id => 'test',
	password  => 'test'
);

$smpp->submit_sm(
	source_addr      => '+44206064379',
	destination_addr => '+44206064379',
	short_message    => 'Test Message'
);

$smpp->unbind();