#!/usr/bin/perl -w

use strict;

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

my $req = HTTP::Request->new(POST=>'http://212.87.65.227/bin/query.exe/en');
  
$req->content_type('application/x-www-form-urlencoded');
$req->content('to=Guildford&from=Portsmouth');
my $res = $ua->request($req);

if ($res->is_success) {
 print $res->content;
} else {
 print "Error: ", $res->status_line, "\n";
}