#!/usr/local/bin/perl -w
# lwp-uaagent.pl -- Browserstring explizit setzen mit LWP::UserAgent

use LWP::UserAgent;

$url = $ARGV[0] || "http://www.perl.com/";

$ua  = new LWP::UserAgent;

$ua->agent("NSA-Spider NSA-lib3a23");   # Webmaster verwirren!

$req = new HTTP::Request 'GET' => "$url";
$res = $ua->request($req);
$result = $res->is_success() ? 
    $res->content() :
    "Error: " . $res->code() . " " . $res->message();

print "$result\n";