#!/usr/bin/perl --
use CGI;
use strict; use warnings;
my $q = CGI->new({1,-sham});
print join qq{\n},
        $q->textfield(-name,1,-value,2),
        $q->textfield(-name,1,-value,2, -override,1),
        CGI->new({})->textfield(-name,1,-value,2),
;;;;;;;
__END__
<input type="text" name="1" value="-sham" />
<input type="text" name="1" value="2" />
<input type="text" name="1" value="2" />