#!/usr/bin/perl 
use CGI;
my $query = new CGI;
my $xmin = $query->param('xmin');
my $xmin = $query->param('xmax');

print "Content-type:text/html\n\n";

print "<html>";



if( $ENV{"REQUEST_METHOD" eq "GET"} )

     {

            ($key, $value) = split(/=/,$ENV{"QUERY_STRING"});

     }

print "<li>Key is \" $key \" ";

print "<li>Value is \" $value \" ";

print "</html>";

##</code><code>##

function query(x){
           var url = '/MyScript.pl?chr='
           + chr + '&version=5&layers=gene&organism=' + org + '&loc='
           + x + '&' + 'ds=' + 588
           jfetch(url,'query');
         }

##</code><code>##

Chr1 100  200  cancer  human  
Chr2 300  400  diabetes  human
Chr3 600  700  cough     human