#Get the input from the calling html document #read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); #@params = split(/&/,$buffer); #### print $cgi->header( "text/html" ); print qq~ ~; if ($header eq "yes"){ print qq~ MySQL Database sorter.

MySQL DataBase Sorter


~;