##

my $req = new CGI;

my $usr = $req->param('usr');
my $pwd = $req->param('pwd');

##

##

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

##

##


  username 
  password: