#! /usr/bin/perl -w


use strict;
use CGI;

my $query = new CGI;

print STDOUT $query->header();
print STDOUT $query->start_html;


my @gene1 = $query->param('GS1');

@gene1 = split ('', $gene1);

print STDOUT $gene[0];