Search Result

use LWP::UserAgent;
use LWP::Debug qw(+); 

	# Create a user agent object
	my $ua = LWP::UserAgent->new;
	$ua->agent("MyApp/0.1 ");

	# Create a request
	my $req = HTTP::Request->new(POST => 'http://search.cpan.org/search');

#!/usr/bin/perl

use DBI;
use CGI;
use LWP::Simple;
use LWP::UserAgent;
use DateTime::Format::Strptime;
use JSON;
use HTML::Template;
use HTML::Parser;