#!/usr/bin/perl -w
use strict;

if($#ARGV==-1) { die "Usage: header url [ url2 url3 ... ]\n"; }

require LWP;
my $ua = LWP::UserAgent->new();
   $ua->timeout(30);

foreach (@ARGV) {
  my $req = HTTP::Request->new(GET=>$_);
  my $res = $ua->request($req);
  print $res->headers_as_string(), "\n\n";
}