#!/usr/bin/perl
     
    use strict;
    use LWP::UserAgent;
    use HTTP::Request::Common;
     
    my $username = 'yourusername';
    my $password = '********'; 
    my $sendername = "SMSSMS";
    my $mobile = "9xxxxxxxxxx";
    my $message = "Hello World!";
	my $type = "Individual";#Individual/Bulk
	my $language = "English";
    my $sendsms = LWP::UserAgent->new();
     
    my $result = $sendsms->request
    (
     POST 'http://www.yoursmsproviderdomain.com/library/send_sms_2.php?',
     Content_Type  => 'application/x-www-form-urlencoded',
     Content       => [
    			'UserName'	=> $username,
    			'Password'	=> $password,
    			'To' 		=> $mobile,
    			'Type'		=> $type,
    			'Mask'		=> $sendername,
				'Language'	=> $language,
				'Message'	=> $message
                      ]
    );
     
    if ($result->is_error){
		die "HTTP Error\n";
	}
    print "Response:\n\n" . $result->content . "\n\n";