#!/usr/bin/perl
use strict;
use warnings;
use CGI qw/:standard/;

print (
        header,
        start_html(-title => 'User Login'),

        h1('User Login') . "\n",

        '<div style="width: 170px" align="right">' . "\n",
        strong('Username: '),
        textfield(-name => 'username',
                  -size => 10,
                  -maxlength => 20, ),

        "\n", br, br, "\n",

        strong('Password: '),
        textfield(-name => 'password',
                  -size => 10, ),

        "\n", br, br, "\n",

        submit(-value => 'Login', ), "\n",
        '</div>',

        end_html,
      );