#!/usr/bin/perl -w
use strict;
use CGI ":standard";
print header;
my $action = param('action');
my $title  = 'Simple Script';

if(not $action){
print start_html(-title=>$title);
print '<a href="?action=add">Start</a>',end_html;

}elsif($action eq "add"){
print start_html(-title=>$title.' Enter your name');
print start_form(-action=>"?action=addnew"),
textfield('name','Enter Your name',20),
submit('submit'),reset,
end_form,end_html;

}elsif($action eq "addnew"){
my $name = param('name');
if(not $name){
print p('Error , You should write your name');
}else{
print p("Welcome $name");
}
}