$ua->proxy('http','http://myuser:mypass@10.0.4.77');
$ua->proxy(http =>'http://myuser:mypass@10.0.4.77');
$ua->proxy('http','http://10.0.4.77');
$ua->proxy('http','http://10.0.4.77:80');
$ua->proxy('http','http://myuser:mypass@10.0.4.77:80');

##</code><code>##

use strict;
use LWP::UserAgent;
use LWP::Simple; 
use HTTP::Request::Common;


#Names have been changed to protect my sms bill

my $sms_base_url='http://api.smsprovider.com';
my $ua = LWP::UserAgent->new();

$ua->proxy('http','http://myuser:mypass@10.0.4.77');
my $auth_sms_action="/http/auth?user=smsuser&password=smspass&api_id=smsid";
#print "\$auth_sms_action:$auth_sms_action";

my $autentication = &do_post_action($sms_base_url,$auth_sms_action);
print "\$autentication:$autentication";



sub do_post_action 
{
	my ($s_path,$action) = @_;
	
	my $path = $s_path.$action;
	print "\$path:$path\n";

	my $req = HTTP::Request->new(POST => "$path");
	$req->proxy_authorization_basic('myuser', 'mypass');
	$req->content_type('application/x-www-form-urlencoded');
	$req->content('query=libwww-perl&mode=dist');  # Pass request to the user agent and get a response back
	my $res = $ua->request($req);  # Check the outcome of the response
	if ($res->is_success) 
	{
		my $res_content = $res->content;
		return $res_content;
		
	} #if ($res->is_success) 
	else 
	{
		return "$!";
	} #else for if ($res->is_success) 
} #sub do_post_action