}
$userpass = "$self->{'Proxy'}\x00".$self->{'Login'}."\x00".$self->{'Password'};
$encode=encode_base64($userpass);
$encode=encode_base64($userpass, '');
$len=length($encode);
print $fh "AUTHENTICATE \"PLAIN\" {$len+}\r\n";