#!/usr/bin/perl

use CGI qw(:standard);

print header,start_html('Sample CGI');

print "<font face = \"verdana\" size = 2 >";
if (param('name')){

    &print_output();
}
else{
    &print_form();
}


print "</font>";    
print end_html;


sub print_form{
    print "<form action='http://biokdd.informatics.indiana.edu/cgi-bin/juhur/L519Lab/Lab2/sample.cgi' method='POST'>";
    print "Hello!! Please enter the following information :<p>";
    print "Your Name <input type=text name=name> <p>";
    print "Favorite Color  <input type=text name=color> <p>";
    print "<input type='submit' name='submit'> ";
}


sub print_output{
my $name  = param('name');
my $color = param('color');

print "<br> Hi $name, Welcome !! <br>";
print "As per our records, your favorite color is $color";
}