#!/usr/bin/perl -wT
use strict;
use CGI;
my %defaultRecord = ( interaction_site => undef,
 					  TITLE => undef,
 					  channel => undef,
 					  target_cell =>undef,
 					  c_end => undef,
                    ,);


my $blankRecord = new CGI(\%defaultRecord);

$blankRecord->param(-name => 'channel',
                    -value => 'Sodium channel',
                   ,);

open(SAVERECORDHERE,'>','savedrecord.dat') or die "crapola $!";

$blankRecord->save(SAVERECORDHERE);

close(SAVERECORDHERE);

##</code><code>##

    $query->save(FILEHANDLE)

##</code><code>##

        NAME1=VALUE1
        NAME1=VALUE1'
        NAME2=VALUE2
        NAME3=VALUE3
        =
##</code><code>##

   use CGI;
   open (OUT,">>test.out") || die;
   $records = 5;
   foreach (0..$records) {
       my $q = new CGI;
       $q->param(-name=>'counter',-value=>$_);
       $q->save(OUT);
   }
   close OUT;
   # reopen for reading
   open (IN,"test.out") || die;
   while (!eof(IN)) {
       my $q = new CGI(IN);
       print $q->param('counter'),"\n";
   }
##</code><code>##

[recordorsomething]
key = value
k0ey = valuee

[recordothersomething]
k = v

##</code><code>##

COMMERCIAL SUPPLIERS
SEQUENCE            
                     /exon="1-120"
                     /intron=" "
//