Problem logging on to site with MECHANIZE

[bzzt]

I'm trying to log on to this site (www.thecityvibe.com/forum/) with the
followin script but doesn't seem to succeed. Anyone knows what the problem
might be?



#!/usr/local/ActivePerl-5.6/bin/perl -w
use warnings;
use strict;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new();

$agent->get('http://www.thecityvibe.com/forum/');
die "Can't even get the home page: ", $agent->response->status_line
 unless $agent->success;

$agent->field(username => "vagelis");
$agent->field(password => "vagelis");
$agent->submit();

#print $agent->content(),"\n";
#print $agent->uri();