#!/usr/bin/perl
#======================================
# Copyright Paul Wilson 2003.
#======================================
   
   use strict;
   use LWP::UserAgent;
   use HTTP::Request::Common qw(GET);  

   main();
#======================================

sub main {
#--------------------------------------
# Test.

    my $ua = LWP::UserAgent->new();
    my $re = $ua->request(GET 'http://www.adsql.com/');

    print "Content-type: text/plain\n\n";
    print $re->headers->{'x-meta-description'};

}