#!/usr/bin/perl #-Tw
use lib '/home/baz/public_html';

use strict;
$| = 1;

use CGI::Carp "fatalsToBrowser";
use CGI ":all";
use DBI;
use LWP::Simple;
use LWP::UserAgent;
use HTML::TokeParser;
use MyVars qw($footer);
use HTTP::Cookies;

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)");

my $query = new CGI;

$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt",autosave =>1));

print $query->header("Ver 1.1"),
print start_html;
    
my $req =
HTTP::Request->new(GET=>"http://www.bt.co.uk/directory-enquiries/dq_home.jsp");

my $res = $ua->request($req);

open (LOG, ">>res.html");

print LOG "$res->content";