0001以下、名無しにかわりましてVIPがお送りします2006/07/11(火) 11:42:33.95ID:EcJdD6pj0 use WWW::Mechanize; my $m = WWW::Mechanize->new; $m->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"); $m->get('http://ex16.2ch.net/test/read.cgi/news4vip/1152577761/l50'); sleep(2);$m->submit_form(fields => {MESSAGE => 'ksk', mail => 'ksk'}); sleep(2);$m->submit_form; 0002以下、名無しにかわりましてVIPがお送りします2006/07/11(火) 11:43:02.02ID