#!/usr/bin/perl -w
use strict;

use DNAlibrary;

my $a='ATGC';
my $b='TTTT';
print"\n\n";
print DNAappend($a,$b), "\n\n";  #ATGCTTTT