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

##</code><code>##

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};

##</code><code>##

my $modified_time = $head{modified_time};