#!/usr/bin/perl -w
# usage: /path/to/call/me "subject" "message"

use URI::Escape;

my $login = '10155144';
my $pass = 'OVoFGFrK2yJJJu';

# just use /dev/null as log file if you don't need them
my $log = '/tmp/sms.log';

my $subject = uri_escape($ARGV[0]);
my $message = uri_escape($ARGV[1]);

my $date = localtime(time);

system("echo '[$date] wget https://smsapi.free-mobile.fr/sendmsg?user=$login&pass=$pass&msg=$subject%20$message' >>$log");
system("wget -O - 'https://smsapi.free-mobile.fr/sendmsg?user=$login&pass=$pass&msg=$subject%20$message' 2>&1 >>$log");