#!/usr/bin/perl -w use strict; use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url = 'http://www.sf-dream.com/cgi/bbs/'; $mech->get($url ); die $mech->response->status_line unless $mech->success; $mech->click_button(value => '次ページ'); $mech->success or die "ページ取得に失敗しました: ", $mech->response->status_line;