#!/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()