#!/usr/bin/perl		

use CGI;

$query = new CGI;   
print $query->header;
print $query->start_form;

print "Enter the password: ",$query->textfield('pass',$default_name,10),"\n";

&submit_parameters($query)              if $query->param('action') eq 'Submit';

print $query->submit('action','Submit');
print $query->end_form;

sub submit_parameters {
    local($query) = @_;
    local($filename) = &check_name($query->param('pass'));

    if($filename) {
            print $query->redirect(-target => 'ResultWindow', -expires => 'now',
 -uri=>'http://lauragarcia.wso.net/CGI/mySQLeditor/myview.cgi');
     }
}

sub check_name {
   $password="muppets";
   local($name) = @_;
   unless ($name eq $password) {
      print "<P>Try it again!";
      return;
      }
   return "$name";
}