use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

my $url = 'http://search.cpan.org/search';
my $such = $ARGV[0];
my $res = $ua->post($url,
                    [ 'query' => $such,
                      'mode' => 'module',
                    ]);
if ($res->is_error())
  { die "Fehler: ", $res->code(), $res->message(), "\n"; }
print $res->content(), "\n";