Select Code to Download

Actual possible output (out of many expected) should be:
The DNA sequence is:
...
The DNA sequence is:
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

#!/usr/bin/perl -w

...
my(@nucleo) =('A','T','C','G');
return $nucleo[rand(@nucleo)];
}