Example of how to do POST action with HTTP::Request::Common

whois_twnic.pl

#!/usr/bin/env perl

use HTTP::Request::Common;
use LWP::UserAgent;
use pQuery;


sub whois_tanic {
  my ($query, $sld) = @_;

  $response = LWP::UserAgent->new()->request(POST "http://www.twnic.net.tw/b5whois.cgi", [ query => $query, sld => $sld ]);

  pQuery($response->content)->find("pre")->html;
}

print whois("ntu","tw");