my %head;

@head{qw(content_type document_length modified_time expires server)} = head($url);
die "Unable to get page '$url'\n" if !defined $head{content};