sub search4Keyword {
    my $keyword = shift;
    my $request = Net::Amazon::Request::Keyword->new (
        keyword    => $keyword,
        mode       => 'books',
    );

    my $response = $ua->request ($request);

    $response;
}