LWP::Simple, get()

最简单方便的get网页的方法：

#!/usr/bin/perl -w

use strict;
use LWP::Simple qw(get);

my $url = shift || "http://www.chinaunix.net";
my $content = get($url);

print $content;

exit 0;