Proxy-Authorization: Basic <string>

##</code><code>##

use MIME::Base64;
print encode_base64( join( ':', $username, $password ) );

##</code><code>##

print "Proxy-Authorization: Basic SSdtIG5vdCB0aGF0IHN0dXBpZC4uLiA6KQ==\n";

##</code><code>##

use HTTP::Headers;
my $header = HTTP::Headers->new( Proxy_Authorization => 'Basic SSdtIG5vdCB0aGF0IHN0dXBpZC4uLiA6KQ==' );

##</code><code>##

my $request = new HTTP::Request('GET', $ARGV[0], $header);

##</code><code>##

use japh; print;