BOL

Generate N base genome: perl -e '@b=qw/A T G C/;print ">Genome\n";while($l<N){print @b[int(rand(4))];$l++;}' #Tipsoftheday #Perl