#!/usr/bin/perl
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $url = "http://www.google.com/";
my $rsp = $ua->get($url);

open (DATEI, ">code.html");
print DATEI "$rsp";
close (DATEI);