in reply to Help With First LWP Script
use warnings; use strict; use LWP::Simple; use LWP::UserAgent; my $ua = new LWP::UserAgent; print "Content-type: text/html\n\n"; # Create a request my %param; $param{'search'} = 'GD'; $param{'search_query'} = 'name'; my $res = $ua->post('http://cgi.nessus.org/plugins/search.php3', \%par +am); # Check the outcome of the response if ($res->is_success) { print $res->content; } else { print "No response\n"; }
|
|---|