use lib 'D:/Work_PERL/';
use Sequence;
use Person;
use strict;

my $SEQ = Sequence->new('ID01','TRPO56','actctgtgaactattat'); # new Sequence
my $PERSON = Person->new('Obi-Wan','Kenobi','23234345');
$SEQ->randomseq(5);
print "$SEQ->{_seq} \n";
# cand se transmit parametrii unei metode
# variabila @_ are intotdeauna primul parametru
# adresa la care se gaseste structura obiectului $SEQ
# in exemplul indicat, 5 este al doilea parametru.

$SEQ->randomseq(50);
print "$SEQ->{_seq}\n";

my $revers = $SEQ->reversecomplement();
print "$revers";

# https://bip.weizmann.ac.il/course/prog/index.html
# http://evc-cit.info/cit042/index.html