#!/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('0'); ##changes made here
    $agent->form_name('test'); ## Added

    $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();