Select Code to Download

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

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

my $modified_time = $head{modified_time};