#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use URI::Heuristic;

my $user="smsuser";
my $passwd="smspass";
my $server="127.0.0.1";
my $port="13013";

my $from="023232323232";
my $to=$ARGV[0] or die "Utilisation sendsms <Num Tel> \"Message\"";
my $text=$ARGV[1] or die "Utilisation sendsms <Num Tel> \"Message\"";
my $url_brute= "http://".$server.":".$port."/cgi-bin/sendsms?username=".$user."&password=".$passwd."&from=".$from."&to=".$to."&text=".$text;
my $url = URI::Heuristic::uf_urlstr($url_brute);
my $ua=LWP::UserAgent->new();
$ua->agent("Sherpath SMS GW");
my $req=HTTP::Request->new(GET => $url);
my $response=$ua->request($req);
