#!/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 (<PAGE>) { print(); } close(PAGE);