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;

##</code><code>##

@echo off
c:
cd \path\to\program\dir
perl get-page.pl