21:     $ua->proxy(http => 'http://ttt.ww.xxx.yyy:8080/')
22:             or die "(object method call) Can't set http to proxy server: 
\$!=$!\n";
in  $=LWP::UserAgent::proxy('LWP::UserAgent=HASH(0x83ef628)', 'http', 
'http://ttt.ww.xxx.yyy:8080/') from test_proxy.pl:21
605:       my $self = shift;
606:       my $key  = shift;
608:       LWP::Debug::trace("$key @_");
in  .=LWP::Debug::trace('http http://ttt.ww.xxx.yyy:8080/') from 
/usr/lib/perl5/site_perl/5.6.0/LWP/UserAgent.pm:608
  116:  sub trace  { _log(@_) if $current_level{'trace'}; }
  in  .=LWP::Debug::_log('http http://ttt.ww.xxx.yyy:8080/') from 
/usr/lib/perl5/site_perl/5.6.0/LWP/Debug.pm:116
   122:     my $msg = shift;
   123:     $msg .= "\n" unless $msg =~ /\n$/;  # ensure trailing "\n"
   125:     my($package,$filename,$line,$sub) = caller(2);
   126:     print STDERR "$sub: $msg";
LWP::UserAgent::proxy: http http://ttt.ww.xxx.yyy:8080/
  out .=LWP::Debug::_log('http http://ttt.ww.xxx.yyy:8080/') from 
/usr/lib/perl5/site_perl/5.6.0/LWP/Debug.pm:116
out .=LWP::Debug::trace('http http://ttt.ww.xxx.yyy:8080/') from 
/usr/lib/perl5/site_perl/5.6.0/LWP/UserAgent.pm:608
610:       return map $self->proxy($_, @_), @$key if ref $key;
612:       my $old = $self->{'proxy'}{$key};
613:       $self->{'proxy'}{$key} = shift if @_;
614:       return $old;
out $=LWP::UserAgent::proxy('LWP::UserAgent=HASH(0x83ef628)', 'http', 
'http://ttt.ww.xxx.yyy:8080/') from test_proxy.pl:21
scalar context return from LWP::UserAgent::proxy: undef
(object method call) Can't set http to proxy server: $!=
in  $=Config::DESTROY('Config=HASH(0x8368778)') from test_proxy.pl:0
out $=Config::DESTROY('Config=HASH(0x8368778)') from test_proxy.pl:0
scalar context return from Config::DESTROY: undef
[jvansl]$