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

my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows 98');

my $such = $ARGV[0];
my $url = 'http://www.libri.de/shop/action/quickSearch';
my $res = $ua->post($url,
                    [ 'searchString'   => $such,
                      'mainsearchSubmit' => 'Los!',
                    ]);
if ($res->is_error())
  { die "Fehler: ", $res->code(), $res->message(), "\n"; }
print $res->content(), "\n";