再出品するだけのスクリプト(Perl)

#!e:/perl/bin/perl
use strict;
use Win32::IE::Mechanize;
 
my $url = "http://closeduser4.auctions.yahoo.co.jp/jp/show/mystatus?select=closed&hasWinner=0";
my $ie = Win32::IE::Mechanize->new(visible => 1);
$ie->get($url);
 
my @list = ();
push(@list, $ie->find_all_links(url_regex=> qr/\/show\/resubmit\?aID=/));
 
foreach my $l (@list) {
    $ie->get($l->url);
    $ie->form_number(1);
    $ie->submit;
 
    $ie->form_number(1);
    $ie->field(Duration => '7');
    $ie->tick('AutoExtension', 'yes');
    $ie->field(ClosingTime => '22');
    $ie->field(numResubmit => '3');
    $ie->submit;
 
    $ie->form_number(1);
    $ie->submit;
}