#!/usr/bin/perl

use UMTS::Terminal;
use UMTS::SMS qw(:modes);

# Open the handset from GNU/Linux
#my $term = UMTS::Terminal->new('port' => '/dev/ttyACM0', 'debug' => 1);

# Open the handset from Windows
my $term = UMTS::Terminal->new('port' => '\\.\COM12', 'debug' => 1);

# The recipient's MSISDN
my $dest = "0612345678";

# The body of the SMS
my $msg = "Hello there";

# Set PDU (as opposed to text) mode
$term->setMessageMode(SMS_MODE_PDU);

# Send the SMS
$term->sendSMSTextMessage($dest, $msg);