sub print_results {

    # Snipp----

    # Accept job with specified parameter

    my $param = "perl search_gname_and_fasta.pl -gti $go_ti -s $org_types -o $outfile -du $seq_type -f $wstr -t $wend";
    #print "$param\n";
    print br;
    print "Please wait, this may take a few seconds.\n";
    print br;
    print hr;
    system($param);

    print br;
    print "Thank you for submitting the job with us.\n";
    print br;

    my $fasta = read_file($outfile);
    prn_run_space_button(param('organism'),$fasta); 

    # I don't know how to achieve the above function
    # with CGI.pm

    #print start_multipart_form(), 
    #print start_form(-method=>"POST",
    #                -action=>"space_dispatch.cgi",
    #            );
    #hidden( -name=>"analysis", -value=>"Light");
    #hidden( -name=>"organism", -value=>"S.cerevisiae");
    #hidden( -name=>"sequence", -value=>$fasta);
    #submit( -name=>'action', -value => 'Run SPACE-1' ), 
    #print endform;
    
}



sub prn_run_space_button {

    my	($orgname,$fname)	= @_;

   # This snippet only brings us to the cgi
   # but not the Main website in its entirety

   # At this point I tried verbatim print the 
   # htmls decoration according to main file. 
   # But won't do.

    print qq(<FORM METHOD="POST" ACTION="space_dispatch.cgi">\n);
    print qq(<INPUT type="hidden" NAME="analysis" VALUE="Light">\n);
    print qq(<INPUT type="hidden" NAME="organism" VALUE=$orgname>\n);
    print qq(<INPUT type="hidden" NAME="sequence" VALUE="$fname" >\n);
    print qq(<INPUT type="submit" value="Run SPACE">\n);
    print qq(</FORM>\n);


	return ;
}