#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use Data::Dumper;


my $cgi = CGI->new;

print "Content-type: text/plain\n\n";

print $cgi->textfield(
            -name      => 'BillName',
            -value     => 'fake',
            -override  => 1, 
            -maxlength => 70,
            -size      => 50,
          );

##</code><code>##

print $cgi->textfield(
            -name      => 'BillName',
            -value     => $cgi->param('BillName'),
            -maxlength => 70,
            -size      => 50,
          );

print $cgi->textfield(
            -name      => 'BillName',
            -maxlength => 70,
            -size      => 50,
          );