Amazonでperlを検索するよ:

# === Libraries ===
use strict;
use warnings;
# LWP module
use LWP 5.64;
# Character Encoding
use Encode;
use utf8;
binmode( STDERR, ':raw :encoding(utf8)' );
# === main method ===
# get then content of the url.
my $browser  = LWP::UserAgent->new;
# getする先のURIを指定するよ
my $url = URI->new('http://www.amazon.co.jp/s/ref=nb_ss_gw?');
# Queryの指定
$url->query_form(
'__mk_ja_JP' => encode('shiftjis', 'カタカナ'),
'url' => encode('shiftjis', 'search-alias=aps'),
'field-keywords' => 'perl',
'x' => '0',
'y' => 
);
# 実際にリクエストを送る
my $response = $browser->get($url);
# デコードして表示
print decode('shiftjis', $response->content);
# print($url)