if ( ($usr eq 'test') and ($pwd eq 'test'))
{
  print $req->header(-type=>'text/html', -location=>"http://www.example.com/index.cgi?param1=10&param2=3&param3=2&user=$usr&password=$pwd");
}