#!/usr/bin/perl
use warnings;
use strict;
use DNAappend;
  my $a='ATGC';
  my $b='TTTT';
print"\n\n";
  print DNAappend($a,$b);
print"\n\n"; 
exit;