急！火急！救命啊！CGI的问题？

[乌鲁克]

#!/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>

[taogx]

可以，一般我这样用
#!/usr/bin/perl

use strict;

use CGI qw(-private_tempfiles :standard);
use CGI::Carp qw(fatalsToBrowser carpout);

$messageid = param("message_id");