#!/usr/bin/perl
use strict;
use warnings;
use 5.014;
use Bio::PrimarySeq;

my $seqobj = Bio::PrimarySeq->new(-seq      => 'ACTGTGGCGTCAACTG',
                                  -alphabet => 'dna',
                                  -id       => 'test');

say $seqobj->seq;
say $seqobj->revcom->seq;

__END__
*** print out

ACTGTGGCGTCAACTG
CAGTTGACGCCACAGT