#!/usr/local/bin/perl
# Jaime Prilusky, 2005
$|=1;
# if you need both LWP::Simple and CGI ...
use LWP::Simple qw(!head);
use CGI qw(:standard);  # then only CGI.pm defines a head()

  my $url = $ARGV[0];

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

  print qq{
URL            : $url
Content type   : $content_type
Document lenght: $document_length
Modified time  : $modified_time
Expires        : $expires
Server         : $server
};