#!/usr/bin/perl -w use CGI::Ajax; use CGI; sub Show_HTML { my $html = < Dynamic combo box
Func1     Func2

Enter a number :    

Enter a value :

Enter val2 :      

Click Here to View the Log file :


EOT return $html; } my $cgi = new CGI(); my $pjx = new CGI::Ajax( 'functions' => \&functions ); print $pjx->build_html($cgi,\&Show_HTML); $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "GET") { &functions(); } else {} sub functions { print "Radio Button's Value is : " . $cgi->url_param('pick'); print "
"; print "Number's Value is : " . $cgi->url_param('Number'); print "
"; print "box1's Value is : " . $cgi->url_param('b1'); print "
"; print "box2's Value is : " . $cgi->url_param('b2'); print "
"; print "
"; my $number = $cgi->url_param('Number'); my $g1 = $cgi->url_param('b1'); my $g2 = $cgi->url_param('b2'); if ($number eq "" || $g2 eq "") { print "Please enter all the values"; } else { print "Thank You"; } }