use LWP::Simple;

# An array of array refs whith remote url and local file
my @files = (["http://foo.bar/baz1.html", "C:/.../baz1.html"],
             ["http://bar.foo/zab2.html", "C:/.../zab2.html"]);

for my $duplet (@files) {
    mirror($duplet->[0], $duplet->[1]);
}