sub new {
  my $class=shift;
  my $self={};
  $self->{ua}=new LWP::UserAgent;
  $self->{ua}->env_proxy();
  bless $self, $class;
  return $self;
}