use warnings;
use strict;

use LWP::Simple;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);

print "Content-type: text/html\n\n";

# Create a request
my $req = new HTTP::Request POST => 'http://cgi.nessus.org/plugins/search.html';
$req->content_type('application/x-www-form-urlencoded');
$req->content('search=1999-0874&name=cve_id');

# Pass request to the user agent and get a response back
my $res = $ua->request($req);

# Check the outcome of the response
if ($res->is_success) {
print $res->content;
} else {
print "No response\n";
}