#!/usr/bin/perl
use 5.008_001;
use strict;
use warnings FATAL => 'all';
use CGI;
#use CGI::Carp qw(fatalsToBrowser);
use HTML::FillInForm::Lite;
use utf8;
binmode *STDOUT, ":utf8";
binmode *DATA , ":utf8";
my $q = CGI->new;
print $q->header(-charset => 'utf-8');
print HTML::FillInForm::Lite->fill(
\*DATA,
$q,
);
__DATA__
FillInForm Demo
FillInForm Demo
All clear