#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
CGI::initialize_globals();
print header;
print start_html($ENV{'QUERY_STRING'});
if (!defined(param('j_username'))) {
  print start_form(-name=>'a_form', -method=>'GET', -action=>'login.cgi');
  print textfield(-name=>'j_username');
  print br,password_field(-name=>'j_password');
  print br,submit();
  print end_form;
} else {
 if ((defined(param('j_password'))) and (param('j_password') eq '1234')) {
   print h1('YEAH!');
 } else {
   print h1('Bummer, wrong password!');
   }
}
print end_html;
1;