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