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

##</code><code>##

$query->textfield(
  -name      => 'BillName',
  -value     => -maxlength,
  70         => -size,
  50         => undef,
)

##</code><code>##

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

my $cgi = CGI->new;

my %data = (
  a => $cgi->param('a'),
  b => $cgi->param('b'),
);

print "Content-type: text/plain\n\n";
print Dumper(\%data);