use strict;
  use warnings;
  use LWP;
  my $browser = LWP::UserAgent->new;
     $browser->env_proxy;

  my $url = 'http://www.digikey.com/product-search/en?KeyWords=C0603C474K4PACTU&WT.z_header=search_go';

  my $response = $browser->get( $url ); 
print "HTTP status: ", $response->code( ), "\n";

  unless ($response->is_success) {
     print "no response\n";
  }
  my $response_content = $response->content;
  print "response_content= $response_content\n";