#! C:/perl/bin/perl.exe -w



# use strict;
use warnings;

use HTTP::Cookies::Microsoft;
use LWP::UserAgent;
use FileHandle();
new FileHandle();
my %fhs=();

my $username = getlogin;
my $cookie_dir = "C:/Dokumente und Einstellungen/$username/Cookies/";

my $cookie_jar = HTTP::Cookies::Microsoft->new(
     file => "$cookie_dir/index.dat",
     delayload => 1 );

my $UA = LWP::UserAgent->new( cookie_jar => $cookie_jar );
  


$TestFile3 = "testhtml.html";


my $fh = new FileHandle($TestFile3,"w");



my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;
my $response = $ua->get('[URL=http://server.de/seite/seite']http://server.de/seite/seite'[/URL]);

if ($response->is_success) {
     print ($fh $response->content );
 }
 else {
     die $response->status_line;
 }

$fh->close();

exit(0);