use strict;
use LWP::Simple;

my $url = 'http://www.google.com';

mirror($url,'f:/test.html');