#/usr/bin/perl -w
use WWW::SMS;

my $sms = WWW::SMS->new("36973814824", "This is a test!");

for ( $sms->gateways(sorted => 'reliability') )     #for every compatible gateway
{
   if ( $sms->send( $_ ) )
   {                                                #try to send sms
      last;                                         #until it succeds
   }
   else
   {
      print $WWW::SMS::Error;                        #here is the error
   }
}