#!/usr/bin/perl
require LWP::UserAgent;
use HTTP::Request::Common;

 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;
 $response = $ua->request(POST 'http://x.x.x.x/cgi-bin/rgcgi',
        [  type => DisplayRoute,
           table => IPtoPSTNRoute,
           phonenumbermatch => 'A1212' ]);

 if ($response->is_success) {
     print $response->content;  # or whatever
 }
 else {
     die $response->status_line;
 }