#!/usr/bin/perl -w

use LWP;
use strict;

my $page = "http://www.site.com";

my $browser = LWP::UserAgent->new();   # Create virtual browser
$browser->cookie_jar( {} );            # Enable cookies

my $response = $browser->get($page);
die "Error: ", $response->status_line
 unless $response->is_success;

my $contentpage = $response->content();

open (DEST, ">rapport.html");
print DEST $contentpage;