use Bio::Tools::Analysis::Protein::GOR4;
  #get a Bio::Seq or Bio::PrimarySeq
  use Bio::PrimarySeq;

  $seq = Bio::PrimarySeq->new
    (-seq=>'IKLCVHHJHJHJHJHJHJHNLAILAKAHLIELALAL',
     -primary_id=>'test'); # a Bio::PrimarySeqI object

  my $gor4 = Bio::Tools::Analysis::Protein::GOR4->new (-seq=>$seq);
  $gor4->run;
print "\nhello\n";
my $rawdata= $gor4->result;
print $rawdata;
#--------------------------------------------------------------------------------
  my $data_ref = $analysis_object->result({'helix'} );
 print "score for helix at residue 2 is $data_ref->[1]{'helix'}\n";
 print "predicted struc  at residue 2 is $data_ref->[1]{'struc'}\n";
#--------------------------------------------------------------------------------
#my $meta_sequence = $analysis_object->result('all');
 #print "helix scores from residues 10-20 are ",
 # $meta_sequence->named_submeta_text("GOR4_helix",10,20), "\n";
#--------------------------------------------------------------------------------