#!/usr/local/bin/perl -w

use LWP;


$url = $ARGV[0] || "http://xxx.xxx.de/xxx/status1.dat";

$ua  = new LWP::UserAgent;
$req = new HTTP::Request 'GET' => "$url";

$req->authorization_basic('xxx' => 'xxx');

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

$result = $res->is_success() ? 
    $res->content() :
    "Error: " . $res->code() . " " . $res->message();

print "$result\n";