help with Perl Mechanize

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

Would anyone help me with this little script that I tried to get some
contents from Yahoo Personals by using Perl Mechanize. It doesn't
return any results, although I've feed all kinds of browser headers.
Do I miss anything? Any comment is highly appreciated!!


#!/usr/bin/perl -w

use WWW::Mechanize;
use strict;

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

$mech->add_header(HTTP_ACCEPT => 'image/gif, image/x-xbitmap,
image/jpeg, image/pjpeg, application/,
application/, application/msword, application/pdf, */*');
$mech->add_header(HTTP_ACCEPT_ENCODING => 'gzip, deflate');
$mech->add_header(HTTP_ACCEPT_LANGUAGE => 'en-us');
$mech->add_header(HTTP_CONNECTION => 'Keep-Alive');
$mech->add_header(HTTP_USER_AGENT => 'Mozilla/4.0 (compatible; MSIE
6.0; Windows NT 5.0; yie6; Q312461; .NET CLR 1.0.3705; .NET CLR
$mech->add_header(REQUEST_METHOD => 'GET');
$mech->add_header(Referer => ' /');
$mech->get(" /");
$mech->success or die $mech->response->status_line;

$mech->field('r_gender_pref' => "1");
$mech->field('r_gender' => "2");
$mech->field('r_min_age' => "25");
$mech->field('r_max_age' => "35");
$mech->field('csz' => "94011");

$mech->success or die "post failed:",$mech->response->status_line;

print $mech->content();

Site Timeline