Problem send sms in using perl

Hi friends, i m trying to send sms in perl using ww.sms1.in sms gateway service here is my code


use HTTP::Request::Common;
use LWP::UserAgent;
use SMS::API;


my $sms = SMS::API->new(
'email' => "**********",
'password' => "*******",
'to' => "91********",
'$from' => "Naps", #Optional
'message'=>"hello how are you", #Max 160 characters Message.
) or die $!;
if($send = $sms->send)
{
print"Message sent successfully";
}

else
{
print"msg cant go";
}

everything ok but msg not coming on phone plz helpppppppppp meeeee friends
Thanks

 

Did u try contacting the SMS provider?

 

yes i connected it is being connected

 

SIR is there any perl module that can be used to send sms using 160by2.com

 

Here I attached SMS module and example program.

using this module we can send free sms from way2sms.com

for sending sms you need the way2sms account.

download the sms.zip file and use it.

[ Using this module only I am sending SMS to my friends. ]