Select Code to Download

use CGI;
my $q = new CGI;
...
                           ); 
    print $q->header( -cookie=>$cookie );
}

# returns username stored in cookie if we have validated user or 0 if 
+not
sub validate {
    return $q->cookie('validated')  if $q->cookie('validated');
  return 0;
}

use CGI;
use Crypt::Blowfish;
...
</form>
HTML
}