#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my $url="http://localhost/index.html";
my $MAX_SIZE=50_000;

my ($content_type, $document_length, $modified_time, $expires, $server)=
             head($url);

if ($document_length>$MAX_SIZE){
    print "TooBig, Ignoring\n"
    }
else {
    my $dl=get($url);
    print $dl;
};