print "<FORM METHOD='post' ACTION='RecieverURL'>";
print "<INPUT SIZE=20 TYPE='textbox' NAME='name' VALUE=''>";
print "<INPUT SIZE=20 TYPE='password' NAME='passwd' VALUE='' >";
print "<INPUT TYPE='submit' VALUE='submit'>";
print "</FORM>";


##</code><code>##

use vars qw(%in);
ReadParse();

my $name              = $in{name};
my $passwd             = $in{passwd};

print "name = $name";
print "passwd = $passwd";