#!/usr/bin/perl -w
use LWP::Simple;
use Fatal 'open';
open HTML, ">monastery_gates.html";
my $total = 0;
print STDERR "\nconnecting...";
getstore "http://www.perlmonks.org", sub {
    my($chunk) = @_;
    print STDERR "\r", " " x 20 unless $total;
    $total += length $chunk;
    print STDERR "\r$total bytes";
    print HTML $chunk;
};
print STDERR "\n";