#!/usr/bin/perl

use strict;
use warnings;

use MMPSMS;


my $user = 'matrix@mail.ru';
my $pass = 'passw00rd';

my $text = 'смско! смско! смско!';

my $name = 'lalala';
my $phone = '+7998xxxxxxx';



my $sms = MMPSMS->new($user, $pass, 1);

my $id = $sms->add_contact($name, $phone);

$sms->send_sms($phone, $text);

$sms->delete_contact($id, $name, $phone);

$sms->close();