WWW::MechanizeでYahooオークション一括早期終了

Yahooオークションを利用していますが、GW、盆、正月や旅行、出張の際は無用なトラブルを避ける為出品を全て取り消すようにしています。

出品点数が多いと手動で1件ずつ取り消していくのが面倒なのでこんな感じで

#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;

my $u = 'your ID';
my $p = 'your PW';

my $start = 'http://openuser.auctions.yahoo.co.jp/jp/show/mystatus?select=selling';

my $mech = WWW::Mechanize->new(autocheck => 1);

$mech->get($start);

$mech->submit_form(
  with_fields => {
    login => $u,
    passwd => $p
  }
);

$mech->get($start);

foreach ($mech->find_all_links(url_regex => qr(/amgr\?aID=\w+$) )) {
  $mech->get($_);
  $mech->follow_link(url_regex => qr(/closeauction\?aID=\w+$) );
  $mech->submit_form(button => "confirm");
}

• 1ページ分しか処理しません
• 入札の有無に関わらず早期終了します(と思います)。

これくらいは当たり前の機能として備わっていて欲しいのですが、黎明期からずっと変わらないユーザビリティです．．．＞＞ヤフオク