open (USERFILE, $pword_file) || die "File cannot open";
while (<USERFILE>)
{
    chomp;
    ($real_user, $real_pass) = split /\|/;
    if ($real_user eq $good_user && $real_pass eq $good_pass)
    {
       my $stime = time;
       my $c = $query->cookie(
                              -name    =>  'ID',
                              -value   =>  "${stime}${good_user}99",
                              -expires =>  '+1h',
                              -domain  =>  '.domain.com',
                              -path    =>  '/some/path',
                             );
       print $query->header( -cookie => $c);
#      print "Set-Cookie: $c\n";   #this was tried, also didn't work
       $itis="good";
       &url;
    }
}
close (USERFILE);
&url;
#&url prints a header and checks to see if $itis eq "good"
#print one message if it is another if it isn't