#!/usr/bin/perl -w

use CGI qw/:all/;

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

print header, start_html('Untitled Document');
warningsToBrowser(1);

if (!defined param("user")){
    printf ("User = %s | Pass = %s | User and pass both not defined!\n", param("user"), param("pass"));
    print start_form;
    print 'Username: ', textfield('user');
    print end_form;
} elsif (defined param("user") && !defined param("pass")){
    printf ("User = %s | Pass = %s | User defined, pass not defined!\n", param("user"), param("pass"));
    print start_form;
    print 'Password: ', textfield('pass');
    print end_form;
} elsif (defined param("user") && defined param("pass")){
    $pass = param("pass");
    printf ("User = %s | Pass = %s | Both user and pass have been entered!\n", param("user"), param("pass"));
}

print end_html;