Problem send sms in using perl

rahul_mawana's Avatar, Join Date: Apr 2009
Contributor
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
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
At times when the number is in DND list some SMS provider does not deliver the SMS.
pradeep's Avatar, Join Date: Apr 2005
Team Leader
Did u try contacting the SMS provider?
rahul_mawana's Avatar, Join Date: Apr 2009
Contributor
yes i connected it is being connected
rahul_mawana's Avatar, Join Date: Apr 2009
Contributor
SIR is there any perl module that can be used to send sms using 160by2.com
ungalnanban's Avatar, Join Date: Feb 2010
Go4Expert Member
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. ]
Attached Files
File Type: zip sms.zip (2.5 KB, 33 views)