#!/usr/bin/perl print "Content-type: text/plain\n\n"; use LWP::UserAgent; # do not forget to change the domain name $url = "http://www.our.domain/api/sms.asmx"; $username = ""; # your login $password = ""; # your password print "Step #1. Check your balance!\n\n"; $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(POST=>$url); $req->content_type('application/x-www-form-urlencoded'); # put here correct request what you need to do... $req->content("action=GetCreditBalance&username=$username&password=$password"); my $res = $ua->request($req); $result = $res->content; $result =~ /]*>(.*)<\/string>/i; print "Raw Response : ".$result."\n"; print "Response : ".$1."\n";