Select Code to Download

my $seq="ACGGGAGGACGGGAAAATTACTACGGCATTAGC";
...

my $reverse = reverse($seq);
print $reverse, "\n";