Select Code to Download

use warnings;
use strict;
...
}

print "Completed in " . Time::HiRes::tv_interval ($startTime) . "\n";

use warnings;
use strict;
...
  $str .= (qw(A C G T))[rand 4] for 1..$howlong;
  print "$str\n";
}