Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
chomp(@lines);
my $genome = join('',@lines);
print "$genome\n";

... # <DNA> opened

...

close(<DNA>);
print "$genome\n";