#!/usr/bin/perl

use LWP;

my $url = 'http://xxx.xxx.de/xxxx/status1.dat';
my $ua = LWP::UserAgent->new();
my $form = $ua->get($url) or die "Kann $url nicht öffnen";

my $form_login = "xxxx";
my $form_pass = "xxxx";
my $resp = $ua->post("http://xxxx.xxxx.de/xxx/status1.dat",[ $form_login, $form_pass, action => login ]);

# $url = 'http://xxxx.xxxx.de/xxxx/status1.dat';
# $form = $ua->get($url) or die "Kann $url nicht öffnen";
# $form->is_success() or die $form->message();

print $form->content()

401 Authorization Required
This server could not verify that you are authorized to access the document requested. Either you supplied the wrong credentials (e.g., bad password), or your browser doesn't understand how to supply the credentials required.