#!/usr/local/bin/perl5 -w
#  Simple Hello World Example
#
require "cgi-lib.pl"; # Public Domain library to read form data
#
$statusofread =  &ReadParse(*formdata); # read data in associate array formdata
#
$hero="Anonymous"; # if no good form data!
if( $statusofread )     { # If $statusofread nonzero, data read OK
        $hero = $formdata{"username"}; # The input user name
}
#
$today =`date`;
chomp($today); # Today's date captured from UNIX
#
print <<EOF; # Generate the HTML responding page starting with HTTP line
Content-Type: text/html

<html>
<head>
<title>This is Result of my Hello world CGI Script </title>
</head>
<body color="white" >
<h1>Hello World to you my friend $hero on a great $today</h1>
</basefont>
</body>
</html>
EOF
exit; # End Program
