...
print "age: "
            textfield(
                -name => 'age',
                -size => 5);
...