Hi, it sounds like a bit of logic failure to me. This is the skeleton of what you want. You certainly don't need two scripts.

#!/usr/bin/perl -wT

use strict;
use CGI;

my $q = new CGI;

my $user_pwd = $q->param('password');

unless (check_password($user_pwd)) {
    print   $q->header("text/html"),
            $q->start_html("Error"),
            $q->h1("Wrong Password!"),
            $q->p("Use back button and try again"),
            $q->end_html;
  exit;
} 

# do password OK stuff like set cookie

my $cookie = $q->cookie(    -name   => "id",
                            -value  => "foo",
                            -expires=> "+1y" );

print $q->header(-type => "text/html", -cookie => $cookie);

# more code here

exit;

sub check_password {
    my $pwd = shift;
    # check pwd here
    # return true if OK, false if not
}
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print