Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $b='TTTT';
print"\n\n";
print DNAappend($a,$b), "\n\n";  #ATGCTTTT

#!/usr/bin/perl -w
use strict;
...
  return ($head.$tail)
  }
1;