Yahoo!オークション - 出品無料キャンペーン (2008-08-20)

AIMS

困った時だけの書き込みですいません。
昨年からずっとできないで困っている事があるんです。
それは、PERLを使ったAIMSへのファイルのアップロードです。
一念発起で「Webクライアントプログラミング」と言う本を読み、インターネットをここ３日ばかりうろつきましたがやっぱり分かりません。
以下は現在のプログラムの一部です。JUICEさんのプログラムをそのまま使っています。

#価格改定ファイルをアップロード

# リクエストを投げるURL
my $url = "https://vendornet.amazon.co.jp/exec/panama/seller-admin/catalog-upload/modify-only";

# レポートの種類 OrderListings=出品一覧Listings

my $ua = LWP::UserAgent->new;
my $header = HTTP::Headers->new(
Authorization=>"Basic $auth",
UploadFor=>"Marketplace",
FileFormat=>"TabDelimited",
Cookie=>"$session_id $session_id_time $ubid_main"
);

#open(FIL,"inv-ldr.txt");#出品用ファイル名
#my @file_name=FIL;
#close (FIL);

my $req = HTTP::Request->new(POST=>$url, $header);
$req->content(inv-ldr.txt);#この部分を追加。代わりにinv-ldr.txtを@file_nameに入れて$req->content(@file_name)もダメ

my $res = $ua->request($req);

「'_content' => 'NO_FILE_ATTACHED'」が返ってきます。
時間がある時で結構ですからアドヴァイスをお願いします。
素人の質問、ご迷惑でしたらこのコメントを削除してください。