sub textfield {
   my($name, $size, $value) = @_;
   print qq(<input type="text" name="$name" size="$size" value="$value">);
}