Select Code to Download

sub count {
    my( $length, $alphabet )= @_;
    my @alphabet= split //, $alphabet;
...

count( @ARGV );
# count( $_, "ACGT" )   for  8..10;

sub count {
    my( $alphabet, $seq )= @_;
    my $base= length($alphabet);
...
do {
    print $seq, $/;
} while(  $seq= count( $alphabet, $seq )  );