Thanks dws - but its still trowing up the same problem as outlined above

What might I be doing wrong - is there any reason why the cookies wouldn't be working. ANd if not, is it Env. Vars that I need to look at.
Thanks.

I've edited the code anyway and here it is -

#!/usr/bin/perl -w

use strict;

use URI;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Cookies;

use HTTP::Request::Common qw(GET POST);

my $url_home = "http://www.bt.co.uk/directory-enquiries/dq_home.jsp";

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

# Get a session ID first
my $req = GET $url_home;
my $res1 = $ua->request($req);

die $res1->as_string() . "\n" if $res1->is_error();
die "Can't find a session ID!\n" unless ($res1->as_string() =~ /BV_Ses
+sionID=([^&]+)\&/);
my $sessID = $1;

die "Can't find an engine ID!\n" unless ($res1->as_string() =~ /BV_Eng
+ineID=([^&]+)\&/);
my $engID = $1;

#die "Can't find a Cookie ID!\n" unless ($res1->as_string() =~ /BV_IDS
+=([^;]+)\;/);

$cookie_jar->extract_cookies($res1);

# Save the cookie jar's state
print "Cookies: ",$cookie_jar->as_string(),"\n";
$cookie_jar->save($cookie_file);

###################### Start Searching


# too lazy for urlencode...
$sessID =~ s/\@/%40/g;

my $request = POST $url_search, [
        QRY => 'res',
        BV_SessionID => $sessID,
        BV_EngineID => $engID,
        new_search => 'true',
        NAM => 'Griffin',
        GIV => '',
        LOC => '',
        STR => '',
        PCD => 'BT',
        limit => '50',
        CallingPage => 'Homepage',
    ];

$cookie_jar->load;

$cookie_jar->add_cookie_header($request);

my $res2 = $ua->request($request);

###################### How many BT** on this page

# deleted  

###################### Reveal Second Page Results

   die $res2->as_string() . "\n" if $res2->is_error();
    die "Can't find a session ID!\n"
        unless ($res2->as_string() =~ /BV_SessionID=([^&]+)\&/);
     $sessID = $1;
    die "Can't find an engine ID!\n"
        unless ($res2->as_string() =~ /BV_EngineID=([^&]+)\&/);
     $engID = $1;

    print STDERR "Got session ID $sessID\n";
    print STDERR "Got engine ID $engID\n";

    # too lazy for urlencode...
    $sessID =~ s/\@/%40/g;

$request = POST $url_search, [
        QRY => 'res',
        NAM => 'Griffin',
        lci => '0',
        PCD => 'BT',
        start_id => '50',
        CallingPage => 'Homepage',
    ];
 my  $res3 = $ua->request($request);



################### Print 3 pages to http://baz.perlmonk.org/save.html
open (LOG,">save.html");
my $fileOut = $res1->as_string().$res2->as_string().$res3->as_string()
+;
print LOG "$fileOut";
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.