There is no form numbered 1 at /usr/pweb/phonekerala/cgi-bin/thisis.pl line 26
Can't call method "value" on an undefined value at /usr/lib/perl5/site_perl/5.6.0/WWW/Mechanize.pm line 409.

##</code><code>##

#!/usr/bin/perl
print "Content-type: text/html\n\n";

use warnings;
use strict;

use WWW::Mechanize;
use CGI;

    my $cgi = CGI->new();
    my $form = $cgi->Vars;

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

    $agent->get('http:/mydomain.com/html/yes.html');
    $agent->form_number('1');
	$form->{UserId}='test01';
	$form->{Passwd} = 's';
    $agent->field('UserId',$form->{UserId});
    $agent->field('Passwd',$form->{Passwd});
    $agent->submit();
    $agent->get('http://mydomain.com/cg-bin/login.cgi?UserId='.$form->{UserId}.'&Passwd='.$form->{Passwd});
    print $agent->content();