perl打印(输出)无效页面的实现代码，如下：
#!/usr/bin/perl -w
use LWP::Simple;
use strict;
my $status = getstore("http://www.jb200.com/index.php","/tmp/demo");
unless (is_success($status)) {
die "Couldn't retrieve page: ${$status}";
}
open (PAGE, "/tmp/demo") or die "$!";
while (<PAGE>) {
print();
}
close(PAGE);