#!/usr/bin/perl

use strict;
use warnings;

use utf8;
use open ':std' => ':utf8';

use CGI qw( -utf8 );

my $cgi->new();
print($cgi->header('text/html; charset=utf-8'));
print <<'__EOI__';
<title>Demo</title>
<form action="POST">
<p>User Name: <input type="text" value="Username">
<br>Password: <input type="text" value="********">
<br><input type="submit" value="Login">
</form>
__EOI__
[download]