#!/usr/bin/perl #Program name: perlscript print"Content-type: text/html\n\n"; #The HTTP header print" CGI/My First Form\n"; print"\n"; print"Processing CGI form:

"; $formvalues=$ENV{QUERY_STRING}; @formvalues=split("&",$formvalues); print"$formvalues[0]\n"; print "

"; print"$formvalues[1]\n"; print "

"; print"$formvalues[2]\n"; print "

"; @formvalues2=split("=",$formvalues[0]); $NumberOfTickets=$formvalues2[1]; @formvalues2=split("=",$formvalues[1]); $NumbersOnTickets=$formvalues2[1]; @formvalues2=split("=",$formvalues[2]); $HighestNumberOnTicket=$formvalues2[1]; print "$NumberOfTickets"; print "$NumbersOnTickets"; print "$HighestNumberOnTicket"; for ($i=0; $i<$NumbersOnTickets; $i++) { $lotto[$i]= int(rand($HighestNumberOnTicket)) + 1; } print "Your lottery ticket number is @lotto\n"; print "\n";