Perl WWW::Mechanize は応答の代わりにページを返します。

私はユーザー検索プロセスをかなり頻繁に使用する必要があるため、私たちの大学でユーザー検索プロセスを自動化したいと思います。私はWWW::MechanizePerlがこれを行う素晴らしい方法であることを知りました。ただし、次のコードを試してみると、応答は常に期待されるクエリ結果ではなく、元のWebページです。

#!/usr/local/bin/perl

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

$mech->get('http://find.pitt.edu');
$mech->submit_form(
    form_number => 1,
    fields    => { query  => 'Barroso', },
    button    => 'ctl00$ContentPlaceHolder1$btnSearchAll'
);

$mech->success or die "post failed: ", $mech->response->status_line;
print $mech->content_type();
print $mech->response()->content();

私はPerlに最初に触れたので、間違いなく間違ったことをしていますが、文書を読んだ後もそれを見つけることはできませんWWW::Mechanize。どんな助けでも大変感謝します。