Usually, phone providers also allocate an email address to every phone number. If you send/forward an email to that email address, you will receive an SMS.

Alternatively, just talk to your mobile phone provider. Many of them have gateways through which you can send SMS for a very small fee. The APIs are different, but SMS shows some providers that have CPAN modules.

With the email to SMS solution, there's two things to keep in mind.

1. You have to figure out who the carrier is and then figure out what their email address scheme is. Not impossible, but can be challenging in the case of multiple nations.
2. There can be a significant delay between the time the email is sent and when the SMS message is delivered to the recipient. One time while testing this with my phone, some messages were almost instantaneous and others took several hours.

I'm not discouraging it, but just wanted to point out some gotchas that I remember hitting the last time I looked into this for notification. (I ended up going a different route for the notification in my case.)

fnord

How can we sent mail content as SMS to Mobile phones using Perl

You'll need an SMS gateway to send SMS.

And i saw in google that there is only 150 characters allowed. Is there any option to send more characters.

Normally your SMS gateway will accept more than 150 & send the content in more than 1 SMS meaning a message that is 200 characters for e.g will be sent out as 2 messages.

How can we sent SMS to other countries also.

Your SMS gateway will allow you to send SMS to (all | most) countries.

Personally I have used both http://Txtlocal.co.uk & http://ClickaTell.com and both were good and easy to use.

1. Find the Mail to SMS Gateway (that's the hard part -- I don't know of a service that given a phone number will give you the gateway)
2. Code it up just like sending email:

   my $msg = MIME::Lite->new(
                 From    => 'reputableme@notaspammer.com',
                 To      => '8657301@gatewayfromlist.tld',
                 Data    => 'Something pithy'
               );
   $msg->send;
   [download]