use strict;
use warnings;
use LWP::Simple;

my $local = time . ".txt";
my $url = "http://www.example.com/";

my $page = get($url) or die "failed!\n";

open my $out, '>', $local or die "Cannot open $local for output: $!\n";
print $out $page;
close $out;