#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
#http://groups.yahoo.com/group/libwww-perl/message/7242
$|=1;
my @hosts = ('http://login.yahoo.com', 'https://login.yahoo.com');

my $ua=LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 ");

my $https_proxy=$ENV{https_proxy};
delete $ENV{https_proxy} if ($https_proxy);
$ua->env_proxy;
$ENV{https_proxy}=$https_proxy if ($https_proxy);

foreach (@hosts) {
  my $req = HTTP::Request->new(GET => $_);
  #$req->proxy_authorization_basic($ENV{HTTP_PROXY_USER}, $ENV{HTTP_PROXY_PASS});

  my $res = $ua->request($req);

  if ($res->is_success) { print $res->status_line, "\nsomething\n"; }
  else { print $res->status_line, "\nnothing\n"; }
}