package MyApp;

use strict;

use base 'CGI::Application';

sub setup {
  my $self = shift;
  my $self->run_modes( [ qw( start add addnew ) ] );
}

sub start {
  my $self = shift;
  my $query = $self->query;
  my $output = $query->start_html( -title => 'Simple Script' );
  $output .= '<a href="name.cgi?rm=add">Start</a>' . $query->end_html;
  return $output;
}

sub add {
  my $self = shift;
  my $query = $self->query;
  my $output = $query->start_html(-title=>$title.' Enter your name');
  $output .= $query->start_form .
    $query->hidden( 'rm', 'addnew' ) .
    $query->textfield('name','Enter Your name',20) .
    $query->submit('submit') . $query->reset .
    $query->end_form . $query->end_html;
  return $output;
}

sub addnew {
  my $self = shift;
  my $query = $self->query;
  my $text = 'Error , You should write your name';
  if ( $query->param( 'name' ) ) {
    $text = "Welcome $name";
  }
  my $output = $query->p( $text );
  return $output;
}

1;