logotipo

#!/usr/bin/perl -w

use WWW::SMS;

#WWW::SMS->new() takes
#international prefix, operator prefix, phone number, message text
my $sms = WWW::SMS->new('39', '333', '1234567', 'This is a test.');

for ( $sms->gateways() ) { # for every compatible gateway
    print "Trying $_...\n";
    if ( $sms->send($_) ) { # try to send a sms...
        last;                             # until it succeds ;)
    } else {
        print $WWW::SMS::Error;           # unlucky!
    }
}