Select Code to Download

use warnings;
use strict;

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