package test::login;

use strict;
use Apache::RequestRec ();
use LWP;
use LWP::UserAgent;
my $response = "";

sub handler {
my $r = shift;
$r->content_type('text/html');
$r->rflush; # send the headers out

my $agent = LWP::UserAgent->new;

my $request = HTTP::Request->new(GET =>"http://www.test.com/index.jsp");
$request->authorization_basic('user', 'pass');
$response = $agent->request($request);
$response->is_success or print STDERR "Fehler: ", $response->message, "\n" and die;

$r->print("<meta http-equiv='refresh' content='1;URL=http://www.test.com/index.jsp'>"  );

return Apache::OK;
}

1;