- or download this
#!/usr/bin/perl
use warnings;
use strict;
...
print DNAappend($a,$b);
print"\n\n";
exit;
- or download this
package DNAappend;
use strict;
use warnings;
...
return ($head.$tail)
}
1;
- or download this
C:\Users\x\Desktop>joindna.pl
Undefined subroutine &main::Dnaappend called at C:\Users\x\Desktop\joi
+ndna.pl line 8.
C:\Users\x\Desktop>