#! 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 );
 $UA->timeout(10);
 $UA->env_proxy;
my $response = $UA->get('[URL=http://single.de/profil/testusteron']http://single.de/profil/testusteron'[/URL]);

my $TestFile3 = "testhtml.html";

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

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

$fh->close();

exit(0);