#!/usr/bin/perl -w
use LWP::Simple;
use strict;
my $status = getstore("http://www.demo.org/","/tmp/demo");
unless (is_success($status)) {
die "Couldn't retrieve page: $status";
}
open (PAGE, "/tmp/braingia") or die "$!";
while () {
print();
}
close(PAGE);