perl实例-getstore()函数应用举例

#!/usr/bin/perl -w

use LWP::Simple;
use strict;

my $status = getstore("http://www.jb200.com/","/tmp/demo");
unless (is_success($status)) {
    die "Couldn't retrieve page: $status";
}
open (PAGE, "/tmp/braingia") or die "$!";
while (<PAGE>) {
    print();
}
close(PAGE);