#!/usr/bin/perl print "Enter a number of nucleotides: \n"; chomp ($N = <STDIN>); @b=qw/A T G C/;print ">Genome\n";while($l<$N){print @b[int(rand(4))];$l++;}; print "\n"
