use LWP::UserAgent;

my $url = 'http://www2.mouser.com/Search/Refine.aspx?Keyword=FODM8801A';
 
my $ua = LWP::UserAgent->new;
$ua->default_header('Accept-Language' => 'de'); # deutsch
$ua->agent('Mozilla/5.0');                      # Sinnvollen Useragent, da manche LWP blocken

my $html;
 
my $response = $ua->get($url);

if ($response->is_success) {
     $html = $response->decoded_content;
}
else {
     die $response->status_line;
}

print "$html\n";