Program 6 (a)

6 a)

Write a Perl program to accept the User Name and display a greeting message randomly chosen from a list of    4 greeting messages.

#! usr/bin/perl -w
use CGI ':standard';
use CGI::carp qw(WarningsToBrowser);
@coins=("welcome to web programming lab","have a nice day","practise all programs","well done");
$range=4;
$random_number=int(rand($range));
if(param)
{
print header();

print start_html(-title=>"username",-bgcolor=>"pink",-text=>"blue");

$cmd=param("name");

print b("hello $cmd,$coins[$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=>"silver",-text=>"black");
print start_form(),textfield(-name=>"name",-value=>" "),submit(-name=>"submit",-value=>"submit"),reset();
print end_form();
print end_html();
}