#!/usr/bin/perl -w

use strict;

use LWP::Simple;

my @list;
foreach (head $ARGV[0]) {
    push @list, $_;
    print "Undefined\n" unless defined $_;
}

print scalar @list, "\n";
my ($content_type, $document_length, $modified_time, $expires, $server) = @list;

print ">>$content_type<< ";
print ">>$document_length<< ";
print ">>$modified_time<< ";
print ">>$expires<< ";
print ">>$server<<\n";