#!/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;
}