sub enter_data {
  print start_form,
        textarea( -name => 'name', -default => 'Smith, John' ),
        end_form;
  return 1;
}