#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

my $ua = new LWP::UserAgent;

$ua->agent("mYpErLsCrIpT.pl/3.0");
$ua->env_proxy;
$ua->proxy(http=>'http://proxy.pxpost:8080');

my $req = new HTTP::Request "GET" => "http://www.slashdot.org";

$req->proxy_authorization_basic('gargle','ImNoTgOnNaTeLl');

print $ua->request($req)->as_string;