大家来帮忙！十万火急！！！！！！！

Marsadl2003

#!/usr/bin/perl
use CGI qw(:all);
use strict;
print header;
my $yhm=param("username";
my $yhmm==pamar("password";

我用这个程序，可以取出下面的网页资料吗？如果不行，应该用什么办法啊！请赐教！

<form action="/cgi-bin/bbs1/check.cgi">;
    <table width="76%" border="0">;
      <tr>;
        <td>;
          <div align="right">;请输入用户名：</div>;
        </td>;
        <td>;
          <p>;
            <input type="text" name="username" maxlength="10">;
          </p>;
          <p>;</p>;
        </td>;
      </tr>;
      <tr>;
        <td>;
          <div align="right">;请输入密码：</div>;
        </td>;
        <td>;
          <input type="password" name="password" maxlength="100">;
        </td>;
      </tr>;
    </table>;
    <p>;
      <input type="submit" name="Submit" value="提交">;
      <input type="reset" name="Reset" value="重填">;
    </p>;
    </form>;

deathcult

你提交的资料就在%ENV里，
看看%ENV。

deathcult

%ENV就是perl的关联数组，
请先阅读perl教程。