#!/user/local/bin/perl

use strict;
use CGI;
use HTTP::Request;
use LWP::UserAgent;
use HTTP::Header;

my $start_town = "Guildford";
my $destination_town = "Portsmouth";

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

my $method = "POST";
my $url = "http://212.87.65.227/bin/query.exe/en";


my $header = HTTP::Header->new();
my $content = "to=".$start_town."&from=".$destination_town;


my $request = HTTP::Request->new($method, $url, $header, $content);

use HTTP::Response;
my $response = $ua->request($request, "page.html");
if($response->is_success) {
open PLEASE, "<page.html";
while (<PLEASE>) {
	print;
	}
close PLEASE;
}
else {
print $response->error_as_HTML;
}

##</code><code>##

Can't locate HTTP/Header.pm in @INC (@INC contains: /opt/PDperl/5005_03/lib/5.00
503/sun4-solaris-thread /opt/PDperl/5005_03/lib/5.00503 /opt/PDperl/5005_03/lib/
site_perl/5.005/sun4-solaris-thread /opt/PDperl/5005_03/lib/site_perl/5.005 .) a
t tester3.cgi line 7.
BEGIN failed--compilation aborted at tester3.cgi line 7. 

##</code><code>##

#!/user/local/bin/perl

use strict;
use CGI;
use HTTP::Request;
use LWP::UserAgent;
#use HTTP::Header;

my $start_town = "Guildford";
my $destination_town = "Portsmouth";

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

my $method = "POST";
my $url = "http://212.87.65.227/bin/query.exe/en";


#my $header = HTTP::Header->new();
my $content = "to=".$start_town."&from=".$destination_town;


my $request = HTTP::Request->new($method, $url, [$content]);

use HTTP::Response;
my $response = $ua->request($request, "page.html");
if($response->is_success) {
open PLEASE, "<page.html";
while (<PLEASE>) {
	print;
	}
close PLEASE;
}
else {
print $response->error_as_HTML;

##</code><code>##

Can't call method "clone" on unblessed reference at /opt/PDperl/5005_03/lib/site
_perl/5.005/HTTP/Message.pm line 53.