#!/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);