get "Name==$_put{To}", "main"; if ($Name eq "") {

out<<EOF;
Can't find the person who is getting the credit. Please check the spelling of the name.
EOF

}

But the problem is that the error comes up when the form is first visited.

<perl> if(%_put) {

if($_put{Name} eq "")
{
    out "Please input your name!";
    $_get{cmd}="";
  }

} </perl>

In the second case your code is not too bad, but you don't need $_put{To} ($_put{...} is for storing data). Unfortunately I don't know the rest of your code so I can only guess. You probably need s.th. like this:

<perl> if(@_sel) {

get "Name==$Name", "main";
if($_amount==0)
  {
    out<<EOF;
Can't find the person who is getting the credit. Please check the spelling of the name.
EOF
  }

}

But it depends on the rest of your code. Pls could you post all of it?