Select Code to Download

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.

#!/usr/bin/perl
print "Content-type: text/html\n\n";
...
    $agent->submit();
    $agent->get('http://mydomain.com/cg-bin/login.cgi?UserId='.$form->
+{UserId}.'&Passwd='.$form->{Passwd});
    print $agent->content();