use 5.008;      # Require at least Perl version 5.8
use strict;     # Must declare all variables before using them
use warnings;   # Emit helpful warnings

use Bio::Tools::Analysis::Protein::Mitoprot;

use Bio::PrimarySeq;

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

my $mitoprot = Bio::Tools::Analysis::Protein::Mitoprot->new(-seq => $seq); # sequence must be  >!5aa long and start with an M.

# run Mitoprot prediction on amino acid sequence
$mitoprot->run();

print $mitoprot->result;     # print raw prediction to STDOUT

1;