Select Code to Download

use warnings;
use strict;
...
print DNAappend::DNAappend($a,$b);
print"\n\n"; 
exit;