w8

cd usr/lib/cgi-bin;
gedit 8.pl
chmod 777 8.pl
http://localhost/cgi-bin/8.pl


#!/usr/bin/perl/
use CGI ':standard';
@msg=("good morning","have a nice day","good afternoon","have wonderful day");
$range=4;
$random_number=int(rand($range));
if(param){
    print header();
    print start_html(-title=>"user name",-bgcolor=>"pink",-text=>"blue");
    $cmd=param("name");
    print b("hello $cmd,$msg[$random_number]"),br();
    print start_form();
    print submit(-value=>"Back");
    print end_form();
    print end_html();
}
else{
    print header();
    print start_html(-title=>"enter user name",-bgcolor=>"yellow",-text=>"blue");
    print start_form(),textfield(-name=>"name",-value=>" "),submit(-name=>"submit",-value=>"Submit"),reset();
    print end_form();
    print end_html();
}