package FSClient;
#file: MySequence.pm

use strict;
my $EcoRI = 'ggatcc';

use base 'Exporter';

my @EXPORT    = qw(reversec seqlen);
my @EXPORT_OK = qw($EcoRI)

sub reversec {
  my $sequence = shift;
  $sequence = reverse $sequence;
  $sequence =~ tr/gatcGATC/ctagCTAG/;
  return $sequence;
}

sub seqlen {
  my $sequence = shift;
  $sequence =~ s/[^gatcnGATCN]//g;
  return length $sequence;
}

1;