简单print网页源代码

#! /usr/bin/perl
use strict;
use warnings;

use LWP::Simple qw(get);
my $html = get("http://www.baidu.com");
print $html;

把网页源代码保存到本地：

#! /usr/bin/perl
use strict;
use warnings;

use LWP::Simple qw(getstore);
getstore("http://www.xys.com", "bdSource.html");