perl实例-获取web页面内容(LWP::Simple模块)

#!/bin/perl

use LWP::Simple;

$content = get("http://www.jb200.com/index.html");
open FILEHANDLE, ">file.txt";
print FILEHANDLE $content;

close FILEHANDLE;