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